Turnbull China Bikeride/Turnbull China Bikeride - Disc 1.iso/ARGONET/PD/GAMES/COMMERCIAL/ANKH2_Demo.ZIP/AnkhDem2/!Ankh/misc/terdipo1

RISC OS BBC BASIC V Source | 1998-08-22 | 232KB | 9,743 lines

 Adventure System by Jan Klose
 DemoVersion 2 (v0.2)
error
schprait$=""
lowres%=0
 lowres%=1
 ortspr$="ortspr256."
 orte$="orte256."
 misc$="misc256."
 sprites$="sprites256."
 ortspr$="ortspr."
 orte$="orte."
 misc$="misc."
 sprites$="sprites."
cperson=0
plot_menu_bar%=0
init_vars
 lowres%=0
initlib(1600*1024)
initcmem(3300*1024)
initlib(680*1024)
initcmem(1500*1024)
initscreen
tplot_init
init_CD
cmemload(dir$+sprites$+"items")
sload(dir$+sprites$+"dummy")
do_intro
 Variablen zum Spielverlauf -
   1: Tuer zu Thronsaal aud (0=zu)
   2: Tuer zu PapaHaus (0=zu)
   3: Mit Terr. gesprochen, Silvercoin weg
   4: Muelltonne offen
   5: Fishbone genommen
   6: Feder genommen
   7: Pinsel genommen
   8: Korn liegt auf McDo's Dach
   9: Terr. haben Geld zurueckgegeben.
  10: Teppich weggeflogen
  11: Mag.Seil leblos
  12: Frau will Goldfernrohr
  13: Spieler hat Karte bekommen
  14: Von Sun of Cairo erfahren.
  15: Hat Rezept
  16: Seil (leblos) mitgenommen
  17: Priesterstab genommen
  18: Konservendosen angesehen
  19: Tin Key genommen
  20: Truhe offen
  21: Piratensachen genommen
  22: Stein zur Seite geschoben
  23: Schuh genommen
  24: Kroko das Maul gestopft
  25: Aus dem Wasser ans Land gelatscht
  26: Flagge gegeben
  27: Faehrmann kommt wieder
  28: Souvenirmann verhand. mit Japanern
  29: Karawane weg aus Wueste
  30: 'Mitgliedskarte' genommen
  31: Rauswurf aus Kairos
  32: Schraube genommen
  33: Schraubenschluessel ist in Wasser gefallen
  34: Schraubenschluessel genommen
  35: Eimer genommen
  36: Chilli genommen
  37: Mauseloch angesehen
  38: Palasttuer auf
  39: Aufzugtuer Kueche offen
  40: Oillamp genommen
  41: ScarabGlas genommen
  42: Lampe aufgemacht
  43: Oil in Flask
  44: Chilli in Flask
  45: Rat Poison in Flask
  46: Dates in Flask
  47: Datteln von Baum geholt
  48: Datteln aufgehoben
  49: Seil befestigt
  50: Stab steckt in Boden (unterwass)
  51: Dyroach genommen
  52: Domi aus Zukunft gesehen
  53: Aufzugtuer Thronsaal auf
  54: Wachen weggerannt, Speere am Boden
  55: Wachen komplett weg
  56: 'Wow' zu Aufzugtuer
  57: Koechin weg
  58: Specialfilm 2 (Kuechenfrau beginnt Talk) laueft
  59: Wache hat Topp auf Kopp
  60: Keil genommen
  61: Planke genommen
  62: Planke hingelegt
  64: 0=Silberkaefer drin 1=Silberkaefer raus
  65: Goldkaefer drin
  66: Maschine wurde aktiviert
  67: Wagenrad mitgenommen
  68: Blumentopf genommen
  69: Specialraetsel, 0= Steintuer zu
  70: Specialraetsel, 0= Gitter auf
  71: Specialraetsel, 1= Gitter auf
  72: Gruenes Blatt genommen
  73: Vati hat Auftrag gegeben
  74: TEIL ZWEI BEGINNT
  75: Schokoriegel bekommen
  76: Katze Riegel verfuettert
  77: Kanalarbeiter war da
  78: Ganzen Spanner an Kanalarbeiter
  79: Teppich 1x gekitzelt
  80: Tepp 2x gekitzelt (drittes Mal ist var(10) )
  81: Seil runtergefallen Lab17
  82: Seil liegt auf Boden
  83: Seil aufgehoben
  84: Lichtding in Gang gesetzt
  85: Raum ist hell
  86: Geschliffene Schere an Stoffmann gegeben
  87: nasse K.haut aufegehaengt
  88: K.haut trocken haengt
  89: K.haut trocken mitgenommen
  90: Flasche gegeben
  91: Betrunkenen geweckt
  falsch 92: Baseballset mitgenommen
  falsch 91: Sarkophag offen
  92: Mit Heul-Genie geredet
  93: Seil in Masch. eingesetzt
  94: Sonne in Masch.
  95: Wagenrad in Masch.
  96: Hebel in Masch.
  97: Sonne genommen
  98: Zeitmaschine bekommen
  99: Sun of Cairo getrunken.
 100: SklavTreib schnarcht
 101: Sklave weg von Markt
 102: Tauchen geschafft
 103: Ich hab sie! Genie froh
 104: TEIL DREI BEGINNT
 105: Katze weg
 106: Hoellenhund verjagt
 107: Dynamit geklaut
 108: Toter Terr. weg
 109: Wasserding gesprengt
 110: Gras genommen
 111: Osiris trampelt gerade
 112: Sphinx verlassen
 113: Keil benutzt
 114: Keiltuer offen
 115: Knochen genommen
 116: Energiefeld an
 117: Zeitmaschine benutzt
 118: In Vergangenheit gelandet, Specialfilm wurde gestartet
 119: Genie (Wueste) ist da
 120: Genie (Wueste) ist fuer immer weg
 121: Mumie drueckt Knopf
 122: Mumie auf Weg zum Knopf druecken
 123: Baseballschlaeger in Einarmig.Bandit
 124: Einarm.Bandit laeuft
 125: Bandit 1x gedreht
 126: Bandit 2x gedreht
 127: Bandit 3x gedreht
 128: Wuestenbodenloch: Prinzessin ist in Stellung
 129: Wuestenbodenloch: Osiris ist in Stellung
 130: Wuestenbodenloch: Souvmann faellt
 131: WL: SH glotzt rechts
 132: WL: SH glotzt links
 133: WL: SH redet
 134: WL: SH glotzt rechts+links
 135: Ende: Redet mit Pharaoh
 136: Jetzt erst taucht Betrunkener auf
 137: Wollte Breakdancern reparierte Zeitm. geben
 138: Breakdancer haben sich verzogen
 139: Baseballset mitgenommen
 140: Sarkophag offen
 141: Explodiert gleich
 142: Ist explodiert
 143: Souvenirhaendler und Osiris in Hoelle
 144: Phar, Schreck vorbei, Spieler hat Auftrag
 Rahmenschleife, Bildaufbau und Swapping
 dx=0:dy=0
6,229,27
 giveanim=0
 takeanim=0
 takeanim_low=0
 game_loaded=0
  ort=7:neuort=ort
 var(3)=1:REM TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 var(91)=1:REM TEST!!!!!!!!!!!!!
 var(104)=1:REM TEST!!!!!!!!!!!!!
 var(91)=1
 neuort
neuerort:
 ort=6
 var(3)=0
 terror%=1
 want_it_later%
 want_it_later%=0:
later
 want_it_later3%
 want_it_later3%=0:
later3
 want_it_ende%
 want_it_ende%=0:ort=36:neuort=36:
neuerort
 plot_menu_bar%
schoose("menubar"):
cmemplot(0,0,0):
backpack(0):plot_menu_bar%-=1
 bucket_hole%
buckethole
 IF newdir<>direction THEN PROCturnaround
 ort= 2
 ort= 3
 ort=12
ort12
 ort=13
ort13
 ort=19
ort19
 ort=20
ort20
 ort=21
ort21
 ort=22
ort22
 ort=25
ort25
 ort=26
ort26
 ort=27
ort27a
 ort=30
ort30
  I$=
 "OS_Byte",121,(113
 &80)
 ,keypressed:
 keypressed=&FF
 speakspeed=8:
 speaktime>0
 speaktime=
 "OS_Byte",121,(114
 &80)
 ,keypressed:
 keypressed=&FF
 speakspeed=5:
 speaktime>0
 speaktime=
 "OS_Byte",121,(115
 &80)
 ,keypressed:
 keypressed=&FF
 speakspeed=3:
 speaktime>0
 speaktime=
 "OS_Byte",121,( 20
 &80)
 ,keypressed:
 keypressed=&FF
 speakspeed=2:
 speaktime>0
 speaktime=
 "OS_Byte",121,( 29
 &80)
 ,keypressed:
 keypressed=&FF
quitgame
 A,B,C
 speakmode=0
 C>0
 A>723
 B>8
 A<768
 B<88
 offset>1
 offset-=1:plot_menu_bar%=2:
 PROCbackpack(1)
 A>1239
 B>8
 A<1279
 B<88
 offset+5<items
 offset+=1:plot_menu_bar%=2:
 PROCbackpack(1)
  savetime=
backplot
  IF I$="1" THEN PROCneuerteil(2)
  IF I$="2" THEN opendoor%=3
  IF I$="3" THEN item(6)=35:items=6
  IF I$="4" THEN PROCstart_specialfilm(5)
  IF I$="5" THEN teleding%=1:telescreen%=25
localsprites
 speakmode=0
actualitems
 mode>0
speakmode=0
(B>88
 A<723)
giveanim=0
takeanim=0
takeanim_low=0
give_something=0
take_something=0
terror%=0
killkroko%=0
japan%=0
cairos%=0
kanal%=0
specialfilm%=0
filmchen_blockgame=0
modes
 IF mode>0 AND speakmode=0 AND giveanim=0 AND takeanim=0 AND takeanim_low=0 AND give_something=0 AND take_something=0 AND terror%=0 AND killkroko%=0 AND japan%=0 AND cairos%=0 AND kanal%=0 AND specialfilm%=0 AND filmchen_blockgame=0 THEN PROCmodes
 neuort=0
 to_be_taken
process_to_be_taken
process_objects
 IF mode>0 AND speakmode=0 THEN PROCmodes
 speakmode
displaychat
buttons
 give_something
process_comp_give
 take_something
process_comp_take
 arrived=0
 justspeaking=0
 japan%
japan
 opendoor%
opendoor
 cairos%
cairos
 ort=34
ort34
 compchat>0
 compchat_priority=0
 Z
 speakmode=0
 filmchen=0
 speaking$=""
displaycompchat
displaycomppersons
walkdisplay
%+
 compchat>0
 compchat_priority=1
&Z
 speakmode=0
 filmchen=0
 speaking$=""
displaycompchat
displaycomppersons
)D
 schprait$<>""
schoose(schprait$):
plot(8,A,B):
  A,B
+'
 IF ort=5 THEN PROCcheck_sklave
 ort=4
 ort=5
ort5
 ort=16
ort16b
 IF ort=18 PROCort18
 ort=27
ort27b
 ort=28
ort28
 ort=35
ort35
 ort=36
ort36
 beaming%
beaming
 teleding%
teleding
8+
 speakmode=1
 flagset=1
flagset
:\
 comp_will_speak
compdospeak(cws$,comp_chatpos_x(cwsp),comp_chatpos_y(cwsp),cwsc)
 terror%
terror
=
 killkroko%
killkroko
>%
 lostindesert
lostindesert
 kanal%
kanal
@$
 specialfilm%
specialfilm
 speakmode=0
 terror%=0
 killkroko%=0
 japan%=0
 cairos%=0
 kanal%=0
 specialfilm%=0
 filmchen_blockgame=0
infotext(infotext$)
C'
 IF I$=" " THEN VDU30:PRINT A,B
E"
 IF ort=31 PROCvoegel_work
 ort=9
markers
 lowres%
K!
0,800,1279,120
L3
 ort=10
 ort=36
0,-4,1279,-120
-savetime>20
swapscreen
QO   cd_count_soon%-=1:
 cd_count_soon%=0
 cd_count_soon%=10:
cd_checkrepeat
teleding
 teleding%
 1: td=1
 2: td=2
 3: td=3
 4: td=4
 5: td=4
 6: td=3
 7: td=2
 8: td=1
 telescreen%=25
 teleding%=4
 px=-500
 teleding%<9
schoose("tele"+
(td)):
plot(8,438,254)
 teleding%=9
 ort=26:neuort=26:
playsample(3):
 PROCneuerort
 teleding%<9
schoose("tele"+
(td)):
plot(8,122,212)
 teleding%=4
m5   acway=3:acpoint(acway)=6:arrived=1:direction=4
n%   px=wayx%(acway,acpoint(acway))
o%   py=wayy%(acway,acpoint(acway))
r. teleding%+=1:
 teleding%=10
 teleding%=0
theend
backload(dir$+sprites$+"end")
backplot
swapscreen
cd_stop
 lowres%=0
 "x800 y600 c256"
"Wimp_CommandWindow",-1
do_intro
backload(dir$+sprites$+"start")
backplot
swapscreen
 ok=0
 FOR n=1 TO 18
  IF savename$(n)<>"" THEN ok=1
 NEXT n
 A,B,C:I$=
 C=0
 I$=""
 A,B,C:I$=
 C<>0
 I$<>""
introB:
 nosound%=0
"RMKill Ankh1"
main:

 IF C THEN
  IF A> 22 AND B>206 AND A< 502 AND B<275 THEN
   PROCintroB:IF nosound%=0 THEN OSCLI"RMKill Ankh1"
   PROCmain:ENDPROC
  ENDIF
  IF ok THEN
   IF A>733 AND B>212 AND A<1258 AND B<275 THEN
    PROCloadsave(1)
    IF game_loaded THEN PROCmain
    ENDPROC
   ENDIF
  ENDIF
 ENDIF
 UNTIL FALSE
introB
 A,B,C:I$=
 C=0
 I$=""
 nosound%=0
"RMLoad "+dir$+"modules.Ankh1"
"Channelvoice 1 Ankh1"
 1,-15,10000,1000
sload(dir$+sprites$+"cairo")
 n=10
  xTIME=
 0,0,1279,1023
 PROCbackplot
 n<5
schoose("c"+
(n)):
plot(0,258,375)
swapscreen
-xTIME>20
 A,B,C:I$=
 C>0
 I$<>""
 A,B,C:I$=
 C=0
 I$=""
 xTIME=
 A,B,C:I$=
 C>0
  I$<>""
-xTIME>500
 n=1
  xTIME=
 0,0,1279,1023
 n<5
schoose("c"+
(n)):
plot(0,258,375)
swapscreen
-xTIME>20
 A,B,C:I$=
 C>0
 I$<>""
 xTIME=
 A,B,C:I$=
 C>0
  I$<>""
-xTIME>250
specialfilm
 specialfilm%+=1
 specialfilmnum%=1
 specialfilm%=2
playerspeak("Wait! I feel something very strange!")
 specialfilm%=10
 beaming%=4:beamdir%=-1:beamx%=400:beamy%=125:
playsample(3)
 specialfilm%=14
start_filmchen(15,0)
 specialfilm%=80
 direction=4
 specialfilm%=83
playerspeak("This is definitely the first time that I've seen a fata morgana.")
 specialfilm%=95
,   specialfilm%=0:
 var(118)=1
later2
 specialfilmnum%=2
 specialfilm%=5
playerspeak("So this is the kitchen.")
 specialfilm%=15
speak("Stop boy!!",770,680,white)
 specialfilm%=22
 A=790:B=530:
gehhin
 specialfilm%=26
speak("I said stop!",770,680,white)
 specialfilm%=32
 specialfilm%=0:exn=39:
wannatalk
 specialfilmnum%=3
 specialfilm%=3
 A=350:B=530:
gehhin
 specialfilm%>3
 arrived=1
 specialfilm%=0
 specialfilmnum%=4
 specialfilm%=5
speak("Are you OK?",330,750,blue)
 specialfilm%=15
playerspeak("Yep! But it's quite dark down here!")
 specialfilm%=25
playerspeak("So you guys will stay here until I return?")
 specialfilm%=35
speak("Of course!",330,750,blue)
 specialfilm%=40
speak("Pharaoh's instruction!",650,750,green)
 specialfilm%=50
speak("Just climb up the rope if you feel lonely.",330,750,blue)
 specialfilm%=60
speak("Hello Gentlemen!",500,680,orange)
 specialfilm%=67
speak("Stop! Who are you?",650,750,green)
 specialfilm%=75
speak("I'm a souvenir trader!",500,680,orange)
 specialfilm%=82
speak("And today is your lucky day!",500,680,orange)
 specialfilm%=90
speak("I have plenty of special offers,",500,680,orange)
 specialfilm%=100
speak("exclusively for palace guards!",500,680,orange)
 specialfilm%=110
speak("Really?",330,750,blue)
 specialfilm%=115
speak("Can you show us something?",650,750,green)
 specialfilm%=122
speak("This way please!",500,680,orange)
 specialfilm%=130
 var(81)=1:
start_filmchen(39,1)
 specialfilm%=140
playerspeak("Hey!!!")
 specialfilm%=142
 A=318:B=259:
gehhin
 specialfilm%=150
playerspeak("Come back!!"):specialfilm%=0
 specialfilmnum%=5
 specialfilm%=4
playerspeak("Wait here.")
 specialfilm%=10
 A=2000:B=500:
gehhin
 specialfilm%
52:kro_x=1200:kro_y=114:kro_g=1
53:kro_x=1160:kro_y=114:kro_g=2
54:kro_x=1120:kro_y=114:kro_g=3
55:kro_x=1080:kro_y=114:kro_g=4
56:kro_x=1040:kro_y=114:kro_g=5
57:kro_x=1000:kro_y=114:kro_g=6
58:kro_x= 960:kro_y=114:kro_g=7
59:kro_x= 920:kro_y=114:kro_g=8
60:kro_x= 880:kro_y=114:kro_g=1
61:kro_x= 840:kro_y=114:kro_g=2
62:kro_x= 800:kro_y=114:kro_g=3:
start_filmchen(18,0)
63:kro_x= 760:kro_y=114:kro_g=4
64:kro_x= 720:kro_y=114:kro_g=5
    '
65:kro_x= 680:kro_y=114:kro_g=6
 specialfilm%=64
speak("AAAAAAAAH!",640,480,bgreen)
 specialfilm%>65
 specialfilm%<90
 kro_x= 680:kro_y=114:kro_g=0
 specialfilm%>=52
 specialfilm%<=90
schoose("g"+
(kro_g)):
plot(8,kro_x,kro_y)
 specialfilm%=80
speak("Damn! I feel kind of silly!",650,450,yellow)
 specialfilm%=90
 specialfilm%=0:
neuerteil(2):var(74)=1
 specialfilmnum%=6
 specialfilm%=3
specialmove(5,16)
 specialfilm%=5
start_filmchen(41,1)
 specialfilm%=16
 var(91)=1:specialfilm%=0
 specialfilmnum%=7
 specialfilm%=3
 A=832:B=227:
gehhin:specialfilm%=0
 specialfilmnum%=8
 specialfilm%
 2:k=1:kx=926:ky=646
 3:k=2:kx=874:ky=646
 4:k=3:kx=828:ky=630
 5:k=4:kx=786:ky=584
 6:k=5:kx=750:ky=574
 7:k=6:kx=734:ky=568
 8:k=1:kx=687:ky=570
 9:k=2:kx=596:ky=572
10:k=3:kx=534:ky=546
11:k=4:kx=470:ky=502
12:k=5:kx=438:ky=458
13:k=6:kx=432:ky=438
14:k=1:kx=378:ky=440
15:k=2:kx=298:ky=454
16:k=2:kx=245:ky=474
schoose("katze"+
(k)):
plot(8,kx,ky)
schoose("aufzug"):
plot(8,178,388)
 specialfilm%=16
 specialfilm%=0
 specialfilmnum%=9
  px=-300
 specialfilm%
4'
12:kro_x=1200:kro_y=114:kro_g=1
5'
13:kro_x=1160:kro_y=114:kro_g=2
6'
14:kro_x=1120:kro_y=114:kro_g=3
7'
15:kro_x=1080:kro_y=114:kro_g=4
8'
16:kro_x=1040:kro_y=114:kro_g=5
9'
17:kro_x=1000:kro_y=114:kro_g=6
:'
18:kro_x= 960:kro_y=114:kro_g=7
;'
19:kro_x= 920:kro_y=114:kro_g=8
<b
20:kro_x= 880:kro_y=114:kro_g=1:
start_filmchen(17,1):
speak("Aaaaaaahrg!",750,680,bgreen)
='
21:kro_x= 840:kro_y=114:kro_g=2
>'
22:kro_x= 800:kro_y=114:kro_g=3
?'
23:kro_x= 760:kro_y=114:kro_g=4
@'
24:kro_x= 720:kro_y=114:kro_g=5
A'
25:kro_x= 680:kro_y=114:kro_g=6
B-
speak("Guards!!!",750,680,bgreen)
 specialfilm%>=25
 specialfilm%<=35
 kro_x= 680:kro_y=114:kro_g=0
 specialfilm%
F&
35:kro_x=680:kro_y=114:kro_g=9
G'
36:kro_x=494:kro_y=114:kro_g=10
H'
37:kro_x=486:kro_y=114:kro_g=11
I&
38:kro_x=470:kro_y=96:kro_g=12
 specialfilm%>=12
 specialfilm%<=38
L2
schoose("g"+
(kro_g)):
plot(8,kro_x,kro_y)
 specialfilm%>36
 px=wayx%(2,10):py=wayy%(2,10):direction=3:arrived=1
 specialfilm%=39
 specialfilm%=0:exn=38:
wannatalk
 specialfilmnum%=10
 specialfilm%=10
playerspeak("Dad...")
 specialfilm%=15
 A=984:B=170:
gehhin
 specialfilm%=25
speak("What?",568,628,lgrey)
 specialfilm%=35
 A=572:B=528:
gehhin
 specialfilm%=45
 exn=1:
wannatalk:specialfilm%=0
 specialfilmnum%=11
 specialfilm%=2
 A=532:B=176:
gehhin
 specialfilm%=20
 var(116)=1:
start_filmchen(24,0)
 specialfilm%=26
 direction=4
 specialfilm%=27
 direction=1
 specialfilm%=30
playerspeak("Oh no! My way out is blocked by one of these mystic blue energy fields!"):specialfilm%=0
 specialfilmnum%=12
 specialfilm%=5
a*   acway=1:acpoint(acway)=15:arrived=1
b%   px=wayx%(acway,acpoint(acway))
c%   py=wayy%(acway,acpoint(acway))
 specialfilm%=12
 direction=4
 specialfilm%=19
speak("And...?",400,500,yellow)
 specialfilm%=34
 px=-200:beaming%=1:beamdir%=1:beamx%=168:beamy%=163:
playsample(3)
 specialfilm%=37
speak("Aaaahrgg!!",400,500,yellow)
 specialfilm%=51
 specialfilmnum%=13
 specialfilm%<3
 px=-200
 specialfilm%=10
 beaming%=4:beamdir%=-1:beamx%=168:beamy%=163:
playsample(3)
 specialfilm%=14
 px=wayx%(acway,acpoint(acway))
 specialfilm%=25
 specialfilm%=0:
playerspeak("Very interesting things, these time machines!")
 specialfilmnum%=14
 specialfilm%
sQ
 2:px=wayx%(1,1):py=wayy%(1,1):items=0:plot_menu_bar%=2:
 PROCbackpack(1)
t<
speak("Oh, what a day!",840,540,red):var(133)=1
playsample(6)
v*
backload(dir$+orte$+"ort36b")
wS
backload(dir$+orte$+"ort36c"):var(133)=0:
speak("What...",840,540,red)
x*
backload(dir$+orte$+"ort36d")
y*
backload(dir$+orte$+"ort36e")
z+
 200,0:
900,94:
sget("bottom")
{!
start_filmchen(57,1)
 32:A=930:B=340:
gehhin
 51:var(131)=1
~'
 53:direction=2:ereig_auswirk=1
playerspeak("We did it!")
speak("NOT YET!",400,120,orange)
 76:direction=4
 77:direction=1
 78:var(131)=0
 79:var(132)=1
playerspeak("Oh no!")
speak("Where are you?",190,360,orange)
 105:
speak("Oh, I hate this daylight!",367,568,orange)
 123:
speak("Just give me ten more seconds!!",648,576,orange)
 130:specialfilm%=0:var(132)=0:var(134)=1
 specialfilmnum%=15
 specialfilm%
 16:direction=1
speak("OH, I CAN MOVE AGAIN!",250,600,red)
speak("WHAT! THAT CAN'T BE TRUE!",600,680,orange)
 35:A=200:B=200:
gehhin
speak("Quick! We must flee!",250,600,red):cover_num=0
start_filmchen(58,1)
 60:A=1000:B=600:
gehhin
speak("STOP! YOU CAN'T DO THAT!",600,680,orange)
 73:want_it_ende%=1
 specialfilmnum%=16
 specialfilm%
playsample(6)
backload(dir$+orte$+"ort36d")
backload(dir$+orte$+"ort36c")
backload(dir$+orte$+"ort36b")
backload(dir$+orte$+"ort36")
playerspeak("Phew!")
 35:specialfilm%=0:ort=2:neuort=2:
cd_start(2)
 specialfilmnum%=17
 specialfilm%
 5:direction=2
 6:direction=4
playerspeak("Well, looks like a happy end at last!")
playerspeak("I just feel a bit sorry for the poor souvenir trader!")
playerspeak("I wonder what has happened to him!")
 65:specialfilm%=0:var(143)=1:ort=28:neuort=28
start_specialfilm(sfn%)
 specialfilm%=1
 specialfilmnum%=sfn%
buckethole
 bucket_hole%-=1
) first=60:second=40:third=20:fourth=1
 bucket_hole%=first
deleteitem(22):
additem(23):
playerspeak("Oh no! The bucket has a hole!")
 bucket_hole%=second
deleteitem(23):
additem(24)
 bucket_hole%=third
deleteitem(24):
additem(25)
 bucket_hole%=fourth
deleteitem(25):
additem(21):bucket_hole%=0
init_fish
 maxfish=4
 fish_x%(maxfish)
 fish_y%(maxfish)
 fish_anim%(maxfish)
 fish_start%(maxfish)
 fish_speed%(maxfish)
 fish_x%(1)=1000
 fish_y%(1)=430
 fish_anim%(1)=0
 fish_start%(1)=7
 fish_speed%(1)=-5
 fish_x%(2)=200
 fish_y%(2)=350
 fish_anim%(2)=2
 fish_start%(2)=10
 fish_speed%(2)=3
 fish_x%(3)=260
 fish_y%(3)=300
 fish_anim%(3)=1
 fish_start%(3)=13
 fish_speed%(3)=3
 fish_x%(4)=800
 fish_y%(4)=700
 fish_anim%(4)=1
 fish_start%(4)=16
 fish_speed%(4)=-8
 neuort
 fish=1
 maxfish
&  fish_x%(fish)+=fish_speed%(fish)
 fish_speed%(fish)>0
 fish_x%(fish)>1280
 fish_x%(fish)=-200
 fish_speed%(fish)<0
 fish_x%(fish)<-200
 fish_x%(fish)=1280
C  fish_anim%(fish)+=1:
 fish_anim%(fish)>3
 fish_anim%(fish)=0
 fish_anim%(fish)
 0:ob=0
 1:ob=1
 2:ob=0
 3:ob=2
schoose("obj"+
(fish_start%(fish)+ob))
plot(8,fish_x%(fish),fish_y%(fish))
 fish
flagset
 chatnum= 1
take_and_additem(13)
 chatnum= 2
 var( 3)=1:
deleteitem(13)
 chatnum= 6
 var(14)=1
 chatnum= 9
 var( 9)=1:
additem(13)
 chatnum=12
 var(12)=1
 chatnum=14
 var(13)=1:
additem(15)
 chatnum=25
finish_talk:
"RMKill Ankh14":
"RMKill Ankh15":
quitgame
 chatnum=27
 ort=8:neuort=8:
finish_talk:mode=1:
neuerort:enterroom=0
 chatnum=28
 ort=10:neuort=10:
finish_talk:mode=1:
neuerort:enterroom=0
 chatnum=29
 ort=8:neuort=8:
finish_talk:mode=1:
neuerort:enterroom=0
 chatnum=33
 japan%=1
 chatnum=36
finish_talk:opendoor%=4:cairos%=1
 chatnum=39
finish_talk:
start_specialfilm(3)
 chatnum=41
 var(75)=1:
deleteitem(83):
take_and_additem(69)
 chatnum=48
take_and_additem_low(0)
 chatnum=51
take_and_additem_low(73)
 chatnum=52
take_and_additem(78)
 chatnum=54
deleteitem(81):
additem(74):
take_and_additem(75)
 chatnum=56
take_and_additem_low(26):var(90)=1
 chatnum=59
finish_talk:
start_filmchen(55,1):var(122)=1
 chatnum=62
deleteitem(75):just_using=1:
start_filmchen(22,1):var(57)=1:
finish_talk
 chatnum=65
take_and_additem(72):var(98)=1
 chatnum=68
finish_talk:
sload(dir$+ortspr$+"ort5b"):
start_filmchen(45,1):
resetcompchat:var(99)=1
 chatnum=69
 var(100)=1
finish_talk:
start_filmchen(46,1):A=1250:B=370:
gehhin
 chatnum=69
 var(100)=0
 var(100)=1
 chatnum=70
finish_talk:var(104)=1:
neuerteil(3):specialfilm%=0:filmchen=0:filmchen_blockgame=0
 chatnum=74
finish_talk:want_it_later3%=1
 chatnum=75
deleteitem(79):
take_and_additem(80)
 chatnum=79
finish_talk:
start_specialfilm(17)
 chatnum=78
finish_talk:exn=79:
wannatalk
 flagset=0
opendoor
 opendoor%
schoose("door5"):
plot(0,246,314):opendoor%=2
schoose("door6"):
plot(0,246,314)
 speakmode=0
 exn=35:
wannatalk
schoose("door5"):
plot(0,246,314):opendoor%=0
 opendoor%=7
schoose("door"+
(opendoor%-3)):
plot(0,246,314):ereig_auswirk=0:cover_num=3
 opendoor%>=4
 opendoor%<7
schoose("door"+
(opendoor%-3)):
plot(0,246,314):opendoor%+=1
 opendoor%=8
schoose("door"+
(opendoor%-1)):
plot(0,246,314):opendoor%=0:ereig_auswirk=1
 opendoor%<=11
 opendoor%>8
  cover_num=2
schoose("door"+
(opendoor%-1)):
plot(0,246,314):opendoor%-=1
 rett_horizon=0
 rett_horizon=horizon:rett_noeffect=noeffect
 py>570
  horizon=1160:noeffect=140
21  horizon=rett_horizon:noeffect=rett_noeffect
3$  rett_horizon=0:rett_noeffect=0
 var(127)=1
 var(135)=0
 exn=78:
wannatalk:var(135)=1
 var(57)=0
 var(58)=0
start_specialfilm(2):var(58)=1
 PROCschoose("patch"):PROCplot(0,437,508)
 var(100)=0
B. genienum%+=1:
 genienum%>40
 genienum%=1
 genienum%>=2
 genienum%<=14
text("Chzzz...",870,140,lbeige)
 genienum%>=24
 genienum%<=36
text("Pfffft!",870,140,lbeige)
ort12
 R,ob$
 var(91)=0
J" genienum%+=1:
 genienum%>10
M0
 1: ob$="These are the mighty obelisks!"
N?
 2: ob$="These obelisks have been built two years ago."
 3: ob$="Erm..."
P<
 4: ob$="The obelisks have a size of twelve metres!"
QG
 5: ob$="Famous artists have painted these Egyptian paintings!"
 6: ob$="And..."
S<
 7: ob$="I don't tink I've mentioned that before..."
T=
 8: ob$="The obelisks are made of huge stone blocks."
U@
 9: ob$="It took thirty slaves to build these obelisks!"
speak(ob$,350,600,red)
  genienum%=1
ort13
 var(52)=0
checkitem(77)=1
start_specialfilm(1):var(52)=1
 var(117)=1
 var(118)=0
start_specialfilm(1):var(118)=1
ort16b
 gx,gy
 var(49)=1
 cover_num=9
 var(87)=1
 var(88)=0
schoose("skin1"):
plot(8,716,300)
 var(88)=1
 var(89)=0
schoose("skin2"):
plot(8,724,306)
 var(74)=0
h. genienum%+=1:
 genienum%>10
 genienum%=1
 genienum%
 1: gx=631: gy=89+450: gspr=1
 2: gx=635: gy=87+450: gspr=2
 3: gx=631: gy=85+450: gspr=3
 4: gx=633: gy=87+450: gspr=2
 5: gx=633: gy=85+450: gspr=1
 6: gx=631: gy=89+450: gspr=2
 7: gx=635: gy=89+450: gspr=3
 8: gx=631: gy=87+450: gspr=4
 9: gx=633: gy=85+450: gspr=3
10: gx=631: gy=89+450: gspr=2
 (chatnum<>60
 chatnum<>70)
 computertalk=0
 PROCschoose("obj"+STR$(gspr)):PROCplot(8,gx,gy)
 var(101)=0
fadeplot(gspr,gx,gy,gspr)
 var(101)=1
 var(103)=0
fadeplot(0,gx+300,gy,gspr)
 var(103)=1
fadeplot(-2,gx+300,gy,gspr)
 PROCschoose("talk"+STR$(RND(5))):PROCplot(8,gx,gy)
 var(103)=0
fadeplot(4+
(5),gx,gy+30,gspr)
 var(103)=1
fadeplot(4+
(5),gx+300,gy,gspr)
ort18
 gx,gy
 var(49)=1
 cover_num=8
 var(87)=1
schoose("skin1"):
plot(8,716,300)
 var(88)=1
 var(89)=0
schoose("skin2"):
plot(8,724,306)
1 bdancenum%+=1:
 bdancenum%>10
 bdancenum%=1
 bdancenum%
 1: gx=26: gy=291: gspr=1
 2: gx=26: gy=291: gspr=2
 3: gx=26: gy=291: gspr=3
 4: gx=26: gy=291: gspr=1
 5: gx=26: gy=291: gspr=3
 6: gx=26: gy=291: gspr=2
 7: gx=26: gy=291: gspr=1
 8: gx=26: gy=291: gspr=3
 9: gx=26: gy=291: gspr=2
10: gx=26: gy=291: gspr=3
 (chatnum<>65
 chatnum<>66)
 computertalk=0
schoose("obj"+
(gspr)):
plot(8,gx,gy)
schoose("talk"+
(3))):
plot(8,gx,gy)
ort19
 rett_horizon=0
 rett_horizon=horizon:rett_noeffect=noeffect
 py>570
  horizon=760:noeffect=520
1  horizon=rett_horizon:noeffect=rett_noeffect
$  rett_horizon=0:rett_noeffect=0
ort20
 rett_horizon=0
 rett_horizon=horizon:rett_noeffect=noeffect
 py>420
  horizon=500:noeffect=200
1  horizon=rett_horizon:noeffect=rett_noeffect
$  rett_horizon=0:rett_noeffect=0
ort21
* cover_num=3:
 var(65)=1
 cover_num=4
 rett_horizon=0
 rett_horizon=horizon:rett_noeffect=noeffect
 py>500
  horizon=950:noeffect=0
1  horizon=rett_horizon:noeffect=rett_noeffect
$  rett_horizon=0:rett_noeffect=0
ort22
 rett_horizon=0
 rett_horizon=horizon:rett_noeffect=noeffect
 py>500
  horizon=750:noeffect=0
1  horizon=rett_horizon:noeffect=rett_noeffect
$  rett_horizon=0:rett_noeffect=0
ort26
 var(106)=0
 obj_frame_akt%(1)=1
 obj_frame_akt%(1)=4
 obj_frame_akt%(1)=7
playsample(10)
ort25
 py<540
 ereig_auswirk=1
ort27a
 gx,gy
 rett_horizon=0
 rett_horizon=horizon:rett_noeffect=noeffect
 px>578
 py<400
 py>150
  horizon=420:noeffect=140
1  horizon=rett_horizon:noeffect=rett_noeffect
$  rett_horizon=0:rett_noeffect=0
 var(141)=1
 var(142)=0
 var(142)=1:
playsample(6)
ort27b
 var(108)=1
$ bdancenum%+=1:
 bdancenum%>10
  bdancenum%=1
  genienum%+=1
 genienum%>10
 genienum%=1
 bdancenum%
 1: gx=808: gy=790: gspr=1:gfade=1
 2: gx=808: gy=790: gspr=2:gfade=2
 3: gx=808: gy=790: gspr=3:gfade=3
 4: gx=808: gy=790: gspr=4:gfade=2
 5: gx=808: gy=790: gspr=1:gfade=1
 6: gx=808: gy=790: gspr=3:gfade=2
 7: gx=808: gy=790: gspr=2:gfade=3
 8: gx=808: gy=790: gspr=1:gfade=4
 9: gx=808: gy=790: gspr=4:gfade=3
10: gx=808: gy=790: gspr=3:gfade=2
 var(107)=0
 gspr+=4
fadeplot(gspr,gx,gy,gfade)
 bdancenum%=1
 speaking$=""
 genienum%
speak("But I'm an important terrorist!",800,670,lgrey)
speak("I have a mission!",800,670,lgrey)
speak("I have to kill the Pharaoh!",800,670,lgrey)
speak("Come on!",800,670,lgrey)
speak("Make a little exception!",800,670,lgrey)
speak("No.",1124,760,red)
speak("I must nuke the Pharaoh's palace!!",800,670,lgrey)
speak("That spear did hardly scratch me!",800,670,lgrey)
speak("Come on, please",800,670,lgrey)
speak("No.",1124,760,red)
ort28
 var(143)=0
 var(111)=1
   genienum%-=1
 genienum%=0
 var(111)=0
 genienum%=52
speak("Uhh, Scarabs!",630,700,orange)
 genienum%=35
speak("Oh, I hate those little crawling beasts!",630,700,orange)
 (bdancenum%=54
 bdancenum%=55)
 specialfilm%=0
     A=0:B=500:mode=1:
gehhin
R
 bdancenum%=54
 bdancenum%+=1:
playerspeak("Uh-oh! I'd better go now!!")
    bdancenum%+=1
Y
 bdancenum%=10
speak("Who dares to enter Osiris' holy halls!",630,700,orange)
P
 bdancenum%=30
speak("I will erase him immediately!",630,700,orange)
  bdancenum%+=1
  speakspeed=5
 bdancenum%=70
theend
ort35
 var(119)=0
 var(120)=1
 gx,gy
. genienum%+=1:
 genienum%>10
 genienum%=1
 genienum%
 1: gx=603: gy=788: gspr=3:gfade=1
 2: gx=603: gy=788: gspr=2:gfade=2
 3: gx=603: gy=788: gspr=1:gfade=3
 4: gx=603: gy=788: gspr=2:gfade=2
 5: gx=603: gy=788: gspr=3:gfade=1
 6: gx=603: gy=788: gspr=2:gfade=2
 7: gx=603: gy=788: gspr=1:gfade=3
 8: gx=603: gy=788: gspr=2:gfade=4
 9: gx=603: gy=788: gspr=3:gfade=3
10: gx=603: gy=788: gspr=1:gfade=2
 chatnum<>76
 computertalk=0
fadeplot(gspr,gx,gy,gfade)
fadeplot(gspr+3,gx,gy,gfade)
ort36
fadeplot(pspr,psprx,pspry,fade)
 lowres%=0
  A%=Smem
  B%=fadeblock%
 fade
 1: C%=-2
 2: C%=1
 3: C%=2
 4: C%=3
 5: C%=4
  fadeblock%!0=screen_base%
 lowres%=0
>7
 screen=1
 fadeblock%!0=screen_base%+640*400*2
   fadeblock%!4=640
   fadeblock%!8=352
B7
 screen=1
 fadeblock%!0=screen_base%+640*400*2
   fadeblock%!4=640
   fadeblock%!8=176
  fadeblock%!12=
(psprx/2)
G#  fadeblock%!16= 400-
(pspry/2)
  fadeblock%!20=48+pspr
(fscr_put_32k_spr_mask)=-1
schoose("$"+
(48+pspr))
 ort=27
plot(8,psprx,pspry-180)
 ort=16
plot(8,psprx,pspry-416)
 ort=35
plot(8,psprx,pspry-184)
ort30
 IF var(75)=1 AND var(77)=0 THEN var(77)=1:kanal%=1
 ausgeschaltet fuer Demo
ort34
 rotatornum%>0
 rotatornum%>1
schoose("anim"+
(rotatornum%+rotatortyp%-2)):
plot(0,601,295)
[4  rotatornum%+=1:
 rotatornum%>3
 rotatornum%=0
rotor(rt)
`! rotatornum%=1:rotatortyp%=rt
lostindesert
 speaking$=""
(30)=1
   R=
h5
playerspeak("Where the hell am I here?")
i.
playerspeak("I think I am lost.")
jA
playerspeak("Damn! Everything looks the same here!")
kD
playerspeak("I think I need something to find my way!")
lH
playerspeak("Oh, that's useless! I don't know where I am!")
m*
playerspeak("Where's North?")
n*
playerspeak("Where's South?")
o)
playerspeak("Where's East?")
p)
playerspeak("Where's West?")
beaming
 lowres%=0
  A%=Smem
  B%=fadeblock%
  C%=-1
 beaming%
 1: C%=-2
 2: C%=1
 3: C%=2
 4: C%=3
 WHEN 5: C%=4
  fadeblock%!0=screen_base%
 lowres%=0
 screen=1
 fadeblock%!0=screen_base%+640*400*2
   fadeblock%!4=640
   fadeblock%!8=352
 screen=1
 fadeblock%!0=screen_base%+640*256
   fadeblock%!4=640
   fadeblock%!8=176
  fadeblock%!12= beamx%
  fadeblock%!16= beamy%
  fadeblock%!20=48+beaming%
 fscr_put_32k_spr_mask
schoose("$"+
(48+beaming%))
 ort=34
plot(8,beamx%*2,(800-beamy%)-304-156)
 ort=13
plot(8,beamx%*2,(800-beamy%)-228-132)
 beamdir%=1
+  beaming%+=1:
 beaming%=5
 beaming%=0
  beaming%-=1
quitgame
backload(dir$+sprites$+"End")
 0,0,1279,1023
swapscreen
 xTIME=
-xTIME>150
 0,0,1279,1023
backplot
swapscreen
 A,B,C:I$=
 C=0
 I$=""
 A,B,C:I$=
 C>0
  I$<>""
 0,0,1279,1023
swapscreen
 0,0,1279,1023
 lowres%=0
 "x800 y600 c256"
6,229,0
6,21,0
cd_stop
cd_unlockdrive
japan
 japan%=1
 japs1=1:japs2=2:japs3=3:japsx1=-200:japsx2=-300:japsx3=-500:
resetcompchat:hallo%=0:
 japan%+=1
 japan%>2
 japan%<21
schoose("talk1"):
plot(8,520,314)
schoose("anim"+
(3+japs1)):
plot(8,japsx1,220)
 japsx1<120
   japsx1+=20
#   japs1+=1:
 japs1>3
 japs1=1
   japs1=1
schoose("anim"+
(6+japs2)):
plot(8,japsx2,200)
 japsx2<250
   japsx2+=30
#   japs2+=1:
 japs2>3
 japs2=1
   japs2=1
schoose("anim"+
(9+japs3)):
plot(8,japsx3,200)
 japsx3<50
   japsx3+=32
#   japs3+=1:
 japs3>3
 japs3=1
   japs3=1
 japan%>=21
 japan%<=35
schoose("talk1"):
plot(8,520,314)
schoose("cchat2-3"):
plot(8,120,220)
schoose("obj1"):
plot(8,76,200)
schoose("cchat3-1")
 japan%=25
 japan%=26
schoose("anim13")
 japan%=26
 japan%=27
schoose("anim14")
 japan%=28
 japan%=29
schoose("anim14")
 japan%=30
schoose("anim15")
 japan%=31
schoose("anim14")
 japan%=32
schoose("anim14")
 japan%=33
schoose("anim13")
plot(8,270,200)
 japan%=35
speak("Oh, hello, gentlemen!",800,500,red)
 japan%=35
  shopx%=950
  shopy%=280
  shopanim%=1
 japan%>34
 japan%<=52
  PROCschoose("anim4"):PROCplot(8,120,220)
  PROCschoose("anim10"):PROCplot(8,76,200)
  PROCschoose("anim7"):PROCplot(8,270,200)
  shopanim%+=1
  IF shopanim%>3 THEN shopanim%=1
  IF shopx%>502 THEN
   shopx%-=28
   IF shopx%<600 THEN shopy%-=10
  ENDIF
  PROCschoose("anim"+STR$(shopanim%)):PROCplot(8,shopx%,shopy%)
  japan%=52
 japan%=52
startcompchat(34)
  block_comp_speaker=0
  comp_pointer=0
  comp_anim_max()=3
  var(28)=1
  japan%=0
cairos
 cairos%+=1
 cairos%=2
 cok%=0:
 cairos%=10 A=130:B=520:
gehhin
 cok%=0
 cairos%>10
 arrived=1
 opendoor%=11:
7:cok%=1:px=522:py=338
 cairos%= 30
speak("Wow! So this is the Cairo's!",326,520,yellow)
 cairos%= 40
speak("Erm, hello guys!",270,540,yellow)
 cairos%= 50
speak("Hi.",92,546,purple)
 cairos%= 60
speak("Hi.",42,586,blue)
 cairos%= 70
speak("Who's that kid?",136,476,green)
 cairos%= 80
speak("Nice chair!",178,594,yellow)
 cairos%= 90
speak("Wow, is that a magnet?",178,594,yellow):
additem(76)
 cairos%=100
speak("Hey, put that back will you!",162,532,lgrey)
 cairos%=110
speak("C'mon barkeep!",178,594,yellow)
 cairos%=120
speak("You'd better give me something to drink!",218,594,yellow)
 cairos%=130
speak("Oh well.",112,532,lgrey)
 cairos%=140
speak("Here.",112,532,lgrey):
additem(67)
 cairos%=150
speak("That's the 'Firey Rainbow'.",192,532,lgrey)
 cairos%=160
speak("Sounds like a drink for kids.",178,594,yellow)
 cairos%=170
speak("Glug glug glug...",178,594,yellow):
deleteitem(67):
additem(66)
 cairos%=180
speak("Aaaahhhrg!!! Khhhhhh!",178,594,yellow)
 cairos%=190
speak("Damn!",178,594,yellow)
 cairos%=200
speak("Now THAT was strong!",178,594,yellow)
 cairos%=205
speak("HEY!!!",234,436,red)
 cairos%=210
speak("Who's that kiddie sitting on my chair...",234,436,red)
 cairos%=220
speak("...and drinking that baby drink?",234,436,red)
 cairos%=230
speak("Hey, small guy!",178,594,yellow)
 cairos%=240
speak("You'd better be careful!",178,594,yellow)
 cairos%=250
speak("Oops.",92,546,purple)
 cairos%=260
speak("Oops.",42,586,blue)
 cairos%=270
speak("Uh-oh.",136,476,green)
 cairos%=280
speak("What was that?",234,436,red)
 cairos%=290
speak("...",178,594,yellow)
 cairos%=300
speak("...erm...",178,594,yellow)
 cairos%=310
speak("I think it was a mistake!",178,594,yellow)
 cairos%=320
speak("Indeed, it was!",234,436,red):
deleteitem(66):
additem(68)
 cairos%=330
speak("Hey, don't do that!",278,482,yellow)
 cairos%=340
speak("I'm gonna call my boys!!",346,458,yellow)
 cairos%=350
speak("Hey man!",347,506,yellow):
playsample(17)
 cairos%=360
speak("Ouch!",392,454,yellow)
 cairos%=370
speak("Ahrg!",446,434,yellow)
 cairos%=380
speak("And don't you dare to come back!",424,518,red)
 cairos%=380 A=681:B=278:
gehhin
 cairos%>380
 arrived=1
playerspeak("Phew!"):
:cairos%=0:var(31)=1
kanal
 kanal%+=1
 kanal%=2
 kanal%=10
speak("Damn, that's a really hard thing here!",380,210,blue)
 kanal%=13
 direction=1
 kanal%=30
speak("I can hardly move it!",380,210,blue)
 kanal%=40
 A=573:B=204:
gehhin
 kanal%=50
speak("Hargggg...",380,210,blue)
 kanal%=70
speak("Errrrrrrrggggg....",380,210,blue)
 kanal%=90
speak("TENG!",380,180,red)
 kanal%=90
start_filmchen(5,1)
 kanal%=95
speak("Damn!",380,210,blue)
 kanal%=100
:kanal%=0:var(33)=1
killkroko
 enterroom=32
 enterroom=0
 ^ das muss sein, weil man evtl. ueber den Raum-Betret-Punkt von Ort32 nach Ort9 latscht.
 Das 'Ich hab Raum betreten' wird aber nur in PROCmode1 bearbeitet/zurueckgesetzt.
 Solange killkroko aber laeuft, werden keine modes bearbeitet.
 killkroko%>21
 killkroko%<92
 py<242
schoose("krok1"):
plot(0,320,96):
schoose("krok2"):
plot(8,540,96):
schoose("m"):
plot(0,300,0)
 killkroko%<5
 killkroko%+=1:
 killkroko%=5
  A=574:B=108:
gehhin
  killkroko%=6
 killkroko%=6
 arrived=1
playerspeak("Don't try this at home, kids."):direction=4
  killkroko%=7
 killkroko%>=7
 killkroko%<15
 killkroko%+=1
 killkroko%=15
  A=900:B=400:
gehhin
 killkroko%>=15
 killkroko%<21
 killkroko%+=1
 killkroko%=21
 ort=10:neuort=10
 killkroko%>=21
 killkroko%<25
 killkroko%+=1
 killkroko%>=25
 killkroko%<30
text("*POW*",200,300,white)
  killkroko%+=1
 killkroko%>=30
 killkroko%<35
text("Ouch!",250,220,blue)
  killkroko%+=1
 killkroko%=35
playsample(17)
 killkroko%>=35
 killkroko%<40
text("Take this, crocodile!",200,400,yellow)
  killkroko%+=1
 killkroko%>=40
 killkroko%<50
text("*ZZZZZZZRATT!*",200,300,blue)
checkitem(36)=0
additem(36):
deleteitem(18)
  killkroko%+=1
 killkroko%>=50
 killkroko%<55
text("Grrr!",300,220,green)
  killkroko%+=1
 killkroko%>=55
 killkroko%<60
text("Ha! That won't help you!",200,300,yellow)
  killkroko%+=1
 killkroko%>=60
 killkroko%<65
text("Grrr!",300,220,green)
  killkroko%+=1
 killkroko%>=65
 killkroko%<80
text("Try to explain this to your crocodile friends!",400,350,yellow)
  killkroko%+=1
 killkroko%>=80
 killkroko%<90
text("Grrrrrrrrrr!",300,220,green)
  killkroko%+=1
 killkroko%=90
  A=580:B=400:
gehhin
  killkroko%=91
 killkroko%>=91
 killkroko%<95
 arrived=1
  killkroko%+=1
 killkroko%=95
playerspeak("I've got its skin. It must feel kind of naked now!")
  killkroko%=0:
  var(25)=1:ereig_auswirk=1
terror
 terror%<5
 terror%+=1:
 terror%=5
startcompchat(22):comp_pointer=0:compchat_priority=0
  comp_anim_max(1)=4
  comp_anim_max(2)=5
  terror%=6
 terror%=6
 compchat_mark=1
  compchat_mark=0
resetcompchat
  terror%=7
 terror%=7
  A=680:B=230:
gehhin
  terror%=8
 terror%>=8
 terror%<15
 terror%+=1
 terror%=15
startcompchat(23):comp_pointer=0:compchat_priority=0
  comp_anim_max(1)=4
  comp_anim_max(2)=5
  terror%=16
 terror%=16
 compchat_mark=1
  compchat_mark=0
playerspeak("Hey, what's going on here?")
  comp_pointer=8
  terror%=17
 terror%>=17
 terror%<22
  comp_speaktime=
  terror%+=1
 terror%=22
 compchat_mark=1
  compchat_mark=0
playerspeak("Right, I'm off.")
  comp_pointer=16
  terror%=23
 terror%>=23
 terror%<25
  comp_speaktime=
  terror%+=1
 terror%=25
  A=720:B=172:
gehhin
  terror%=26
 terror%=26
 compchat_mark=1
playerspeak("And there I go!")
  A=600:B=600:
gehhin
resetcompchat
  terror%=27
 terror%=27
 arrived=1
 exn=2:
wannatalk:terror%=28:
 terror%=28
 speakmode=0
  A=720:B=172:
gehhin
  terror%=29
 terror%=29
 arrived=1
playerspeak("Hang on a minute! What have I done?!!")
playerspeaksoon("That was my one and only silver coin!")
  terror%=30
 terror%=30
 speaking$=""
 terror%=0:
fill_modlist
 modlist%(2,0)=22
 modlist%(3,0)=4
 modlist%(3,1)=5
 modlist%(4,0)=8
 modlist%(4,1)=11
 modlist%(5,0)=13
 modlist%(8,0)=14
 modlist%(8,1)=15
 modlist%(9,0)=16
 modlist%(10,0)=14
 modlist%(10,1)=17
 modlist%(13,0)=3
 modlist%(25,0)=3
 modlist%(25,1)=16
 modlist%(26,0)=3
 modlist%(26,1)=10
 modlist%(26,2)=21
 modlist%(27,0)=21
 modlist%(27,1)=6
 modlist%(28,0)=20
 modlist%(30,0)=17
 modlist%(30,1)=19
 modlist%(32,0)=14
 modlist%(32,1)=15
 modlist%(32,2)=19
 modlist%(34,0)=3
 modlist%(36,0)=6
init_vars
 springx%(500),springy%(500)
 spring%=0
 modlist%(36,2):
fill_modlist:
 2:currentvoice%=1
 cd_count_soon%=10
 want_it_later%=0
 want_it_later3%=0
 want_it_ende%=0
 teleding%=0
 nocd%=1
 mod_altort=0
 flega%=0
 altort=0
 add_soon=0
 dir$="<ankh$Dir>."
  fontname$="Time.Scr.D.Medi"
 fontnormal=12*16
 fontsmall=12*13
 lowres%
  fontnormal=13*16
  fontsmall=12.5*13
 infotext$=""
 speakmax=300
 speaktime=0
 speaking$=""
 speakcol=0
 speakspeed=8
 speakmode=0
 speakanim=1
 genienum%=0
 bdancenum%=0
 snooze%=0
', beaming%=0:beamdir%=0:beamx%=0:beamy%=0
(3 justspeaking=0 :
 Ei, falls der grad reden tut
)P second_person_speaking=0:
 ist 1, falls 2te Person in einem Chat grad redet
*C release=1 :
 Mousebutton losgelassen (benutzt bei Displaychat)
 terror%=0
 picx=0
 picy=96
 wand_x2=0:wand_y2=0
 enterroom=0
 use_screen_thing=0
 sibmerk_x=0
 sibmerk_y=0
 second_is_backpack=0
 first_is_screen=0
51 blend_feature=0 :
 wird von init eingestellt
6K look_is_important=0:
 soller sich in Richtung drehen, in die geklickt?
7@
 wird nur 1, wenn auf Objekt geklickt.
 screen=1
93 game_loaded=0 :
 ob gerade Spiel geladen wurde
 loaded_x=0
 loaded_y=0
 just_using=0
=. rett_horizon=0 :
 nur gebr. bei PROCort27
>. rett_noeffect=0:
 nur gebr. bei PROCort27
@; lostindesert=0:
 ob er grad ohne Kompass in Wueste ist
BT wineman_asks_cat=0 :
 ist nur 1, solange Weinmann Katze ansieht (=Katze maunzt)
CJ    cat_is_silent=0 :
 ist nur 1, wenn Katze sich nicht traut zu antw.
DL    cat_is_curious=0 :
 ist nur 1, wenn Katze sich ueber Spieler wundert
FN filmchen=0 :
 Jo mei, es wird grad kein Film gespielt, herrschaftszeiten!
 filmchen_akt=0
 filmchen_remain=0
 filmchen_len=0
 filmchen_blockgame=0
 comp_will_speak=0
 block_comp_speaker=0
 delay_comppers=0
PI compchat_priority=0 :
 Compchatpersonen oder Player zuerst zeichnen?
 chatperson=0
TH to_be_taken=0:
 ist =num von was er nehmen will, falls PickUp funkt
 Farben fuer PROCtext
 red   =&8888ff00
 yellow=&99ffff00
 white =&ffffff00
 blue  =&ffccaa00
 dblue =&ff884400
 lbeige=&ddeeff00
 lbrown=&0088aa00
 lblue =&ffbbbb00
 green =&00ee0000
 bgreen=&ffff0000
 lgrey =&aaaaaa00
 orange=&00aaff00
 purple=&ff88ee00
 black =&00000000
 speakheight=0
iO ereig_auswirk=0:
 Was macht ein Ereignis in diesem Raum? 1= Weg blockieren
 newdir=0
 soonspeak$=""
 sooncol=0
 soonheight=0
 soonx=0
 computertalk=0
 playertalk=0
 ex$="":ext=0:exn=0
 comparing=0
 chatnum=0
 chatpos_x=0
 chatpos_y=0
 flagset=0
 savetime=0
 rotatornum%=0 :
 Raum 34
 rotatortyp%=0
}/ timestep=10:
 wie schnell Spiel-Bewegungen
~O merk_act=0:merk_x=0:merk_y=0:
 naechster ort, programmiert durch Hinlaufen
 firstclick=0
" use_a=0:usemode_a=0:use_a$=""
" use_b=0:usemode_b=0:use_b$=""
R real_target_x=0:
 x-Punkt, wo Spieler eigentlich hin will (nicht auf Strecke)
# real_target_y=0:
 y-Punkt, ...
 Kreisende Voegel:
 flugkreis% 270*2
 flugwing% 9
 flug_x%(3),flug_y%(3),flug_radius%(3),flug_step%(3),flap%(3),flapcount%(3),wings%(3)
 kreisnum=264
(dir$+"misc.kreiskoord")
 n=0
 kreisnum-1
   flugkreis%?(n*2)=
   flugkreis%?(n*2+1)=
t flugwing%?1=4:flugwing%?2=5:flugwing%?3=4:flugwing%?4=3:flugwing%?5=2:flugwing%?6=1:flugwing%?7=2:flugwing%?8=3
 Soundfile auslesen
(dir$+"soundfile")
 n=1
 7:x=
2  x$=
 x$="Y"
 nosound%=0
 nosound%=1
init_fish
 Ereignisse auf Weg:
 emax=40
 ereignisse=0
 ereignis_x%(emax),ereignis_y%(emax)
 Tueren:
 maxdoors=3
 door_x%(maxdoors),door_y%(maxdoors)
 doors_in_room=0
 FUER Pfadbewegung:
 pts=100:ways=5
 wayx%(ways,pts),wayy%(ways,pts),acpoint(ways),maxpoints(ways),flat(ways),group(ways)
 inaction(ways):
 fuer Rekursion
 arr_way(10),arr_pt(10),arr_walkway(10),arr_walkpt(10),arr_ort(10)
 acway=1
 px=0:py=0
 direction=1
 olddir=0
 noeffect=200
 horizon=400
 maxorte=35
 fin_way=0:fin_pt=0
 sec_way=0:sec_pt=0
 nxt_way=0:nxt_pt=0
 soon_way=0:soon_pt=0
 move_enable=1
 hide=0
 arrived=1
 Room-Items:
 maxitems=60
 item_x1(maxitems),item_y1(maxitems),item_x2(maxitems),item_y2(maxitems),item_typ(maxitems),item_num(maxitems),item_info$(maxitems),item_name$(maxitems)
 item_walkto_x(maxitems),item_walkto_y(maxitems)
 roomitems=0
 Objekte:
 maxobjects=10
 maxobjdata=100
 obj_first%(maxobjects),obj_frames%(maxobjects),obj_frame_akt%(maxobjects),obj_frame_timer%(maxobjects)
 odata_x%(maxobjdata),odata_y%(maxobjdata),odata_time%(maxobjdata),odata_sprnum%(maxobjdata)
1 obj_num=0:
 Anzahl der Objekte in diesem Ort
 Verdeck-Objekte
 maxcover=20
 cover_x%(maxcover),cover_y%(maxcover),cover_foot%(maxcover)
6 cover_num=0:
 Anz.d.Verdeck-Objekte in diesem Ort
 Computer gibt Spieler was
 maxgive=10
 comp_give_anim_current=0
 comp_give_anim_max=0
G compchat_mark=0:
 wird gesetzt, wenn in compchat ein "%" auftaucht
 comp_give_anim_x(maxgive),comp_give_anim_y(maxgive),comp_give_anim_pic(maxgive)
8 give_something=0:
 Ob Computer Spieler rad was gibt
2
 1=Comp bewegt sich (geben)
6
 2=Spieler bewegt sich (nehmen)
 player_has_taken=0
 Computer nimmt was von Spieler
 maxtake=10
 comp_take_anim_current=0
 comp_take_anim_max=0
 comp_take_anim_x(maxtake),comp_take_anim_y(maxtake),comp_take_anim_pic(maxtake)
> take_something=0:
 Ob Computer grad was von Spieler nimmt
 Talk-Objects
 tob_x(3),tob_y(3),tob_num(3) :
 xyPos von Mundbew,Augenzwink,Specialakt.
J                                  :
 und wieviele Animlevels jeder hat
 Objekt-Reihenfolgen
 maxtobjects=30
 tobinfo_nr(maxtobjects),tobinfo_time(maxtobjects)
6 tob_actual=0 :
 welche Anim.stufe ist gerade dran
5 tob_timeremain=2:
 wie lange, bis naechste Stufe
J tob_zwinkern=0 :
 ob gerade Augen (oder was aehnliches) bewegt werden
 tob_zw_actual=0
 tob_zw_timeremain=0
 tob_special=0
 tob_sp_actual=0
 tob_sp_timeremain=0
5 guy_special%=0 :
 Specialbewegung des Charakters
5 guy_specialofs%=0 :
 X-Offset der Specialsprites
2 guy_specialmax%=0 :
 wieviele Bewegungsstufen
0 guy_specialkind%=0:
 1=Linear 2=Hin+zurueck
3 killkroko%=0:
 nur 1, wenn er grad Kroko killt
& japan%=0:
 nur 1, wenn Jap kommen
E opendoor%=0:
 1 od. 2 od. 3, wenn Cairo's Tuervorhang auf/zugeht
& cairos%=0:
 wenn er im cairos ist
) kanal%=0:
 Kanalarbeiter meldet sich
 specialfilm%=0
 tob_actual=1
 tob_timeremain=2
* bucket_hole%=0 :
 fuer PROCbuckethole
 var(150)
 item(65)
 items=2:offset=1
 item(1)=64
 item(2)=10
 itemname$(90),iteminfo$(90)
S itemname$(01)="Corn":iteminfo$(01)="Looks exactly like funny vegetarian food."
^ itemname$(02)="Chilli sauce":iteminfo$(02)="That's the 'Luxor Mega Strong Chilli Sauce'."
s itemname$(03)="Rat poison":iteminfo$(03)="Top-quality rat poison. Kills anything from a budgie to a dinosaur."
Q itemname$(04)="Salad":iteminfo$(04)="Feels very, ehm, strange in my pocket."
T itemname$(05)="Ham":iteminfo$(05)="Have you ever put hot ham into your pocket?"
J itemname$(06)="Roll":iteminfo$(06)="It might well be a few days old."
W itemname$(07)="Ham and salad":iteminfo$(07)="Well, something seems to be missing."
X itemname$(08)="Roll and salad":iteminfo$(08)="Well, something seems to be missing."
V itemname$(09)="Roll and ham":iteminfo$(09)="Well, something seems to be missing."
H itemname$(10)="Hamburger":iteminfo$(10)="Now that's a nice burger!"
C itemname$(11)="Rope ":iteminfo$(11)="That's a very long rope."
; itemname$(12)="Dynamite":iteminfo$(12)="Strong stuff!"
U itemname$(13)="Silver coin":iteminfo$(13)="It's my pocket money for this month."
F itemname$(14)="Recipe":iteminfo$(14)="Does not sound very tasty."
j itemname$(15)="Map":iteminfo$(15)="Damn! And I've swapped a golden telescope for this piece of crap!"
U itemname$(16)="Dirty telescope":iteminfo$(16)="Yeah, that thing's really dirty."
X itemname$(17)="Clean telescope":iteminfo$(17)="Wow, what a shiny golden telescope!"
i itemname$(18)="Pirate sabre":iteminfo$(18)="This is the right weapon to use against a fierce enemy!"
Q itemname$(19)="Jolly Roger":iteminfo$(19)="That's some kind of pirate flag."
K itemname$(20)="Feather":iteminfo$(20)="My father used it for writing."
 U itemname$(21)="Old bucket":iteminfo$(21)="That's a really old and rusty bucket."
!V itemname$(22)="Bucket filled with water":iteminfo$(22)="The water's running out!"
"Z itemname$(23)="Bucket 1/2 filled with water":iteminfo$(23)="The water's running out!"
#Z itemname$(24)="Bucket 1/4 filled with water":iteminfo$(24)="The water's running out!"
$Q itemname$(25)="Almost empty bucket":iteminfo$(25)="The water's running out!"
%_ itemname$(26)="Flask":iteminfo$(26)="This is a present from the strange man at the river."
&H itemname$(27)="Priest staff":iteminfo$(27)="This is a metal staff."
'= itemname$(28)="Marble leg":iteminfo$(28)="A marble leg."
(P itemname$(29)="Tin key":iteminfo$(29)="A small metal key for opening tins."
)M itemname$(30)="Stone":iteminfo$(30)="This is a very handy little stone."
*d itemname$(31)="Dates":iteminfo$(31)="date -n. dark-brown sweet-tasting fruit of the date palm."
+M itemname$(32)="Camel hair":iteminfo$(32)="That's some short rough hair."
,N itemname$(33)="Lamp":iteminfo$(33)="This is a typical Egyptian oil lamp."
-a itemname$(34)="Oil":iteminfo$(34)="I should use it quickly before it spoils all my clothes!"
 itemname$(35)="Scarabs":iteminfo$(35)="There's a label saying 'Beware: Content might be extremely holy under certain circumstances!'"
/` itemname$(36)="Wet crocodile skin":iteminfo$(36)="Some ugly slimy wet skin of a crocodile."
0U itemname$(37)="Dry crocodile skin":iteminfo$(37)="Some dry skin of a crocodile."
1I itemname$(38)="Long rope":iteminfo$(38)="This is quite a long rope!"
2D itemname$(39)="Sun":iteminfo$(39)="A little sun made of stone."
3T itemname$(40)="Wagon wheel":iteminfo$(40)="I've taken it from that nice wagon."
4A itemname$(41)="Wedge":iteminfo$(41)="A little wooden wedge."
5: itemname$(42)="Plank":iteminfo$(42)="A wooden plank."
6I itemname$(43)="Key":iteminfo$(43)="I don't know what it's good for."
7{ itemname$(44)="Bone":iteminfo$(44)="I think you should not play around with human remains... under normal conditions."
8g itemname$(45)="Baseball set":iteminfo$(45)="Wow! The original baseball set of the Cairo Pharaohs!"
9d itemname$(46)="Underworld key":iteminfo$(46)="This is the mystic key to the world of the dead."
:T itemname$(47)="Nearly a drink":iteminfo$(47)="Well, something's still missing."
;B itemname$(48)="Sun of Cairo":iteminfo$(48)="Smells horrible."
<? itemname$(49)="Flower pot":iteminfo$(49)="I hate flowers."
=] itemname$(50)="Holy scarabs":iteminfo$(50)="These tiny little things have become alive!"
>S itemname$(51)="A few holy scarabs":iteminfo$(51)="Not many are left in there."
?i itemname$(52)="Almost no holy scarabs":iteminfo$(52)="Wow, some have still hidden inside the glass!"
@i itemname$(53)="Brush without bristles":iteminfo$(53)="It could roughly be described as an ex-brush."
AJ itemname$(54)="Brush":iteminfo$(54)="Now that's what I call a brush!"
BG itemname$(55)="Long thin leaf":iteminfo$(55)="Looks quite stable."
C< itemname$(56)="Hook":iteminfo$(56)="It's a metal hook."
DR itemname$(57)="Hook on leaf":iteminfo$(57)="I've fixed the leaf to the hook."
EV itemname$(58)="Scarabs on hook":iteminfo$(58)="I've fixed the glass to the hook."
Fc itemname$(59)="Scarabs on leaf":iteminfo$(59)="I've fixed the hook and the leaf to the glass."
Gp itemname$(60)="Fishbone":iteminfo$(60)="That's an awful thing. I should get rid of it as soon as possible."
Hc itemname$(61)="Baseball":iteminfo$(61)="When I was young, I always wanted to have a baseball."
Ig itemname$(62)="Baseball cap":iteminfo$(62)="My father never allowed me to wear such a cool thing."
Jm itemname$(63)="Baseball bat":iteminfo$(63)="Wow, this would have been useful for the Libyan terrorists!"
KO itemname$(64)="Magic Ankh":iteminfo$(64)="Use this to load, save or quit."
LM itemname$(65)="Rubbish-bin sign":iteminfo$(65)="It says 'No hot ashes!'"
M1 itemname$(66)="Empty glass":iteminfo$(66)=""
N0 itemname$(67)="Full glass":iteminfo$(67)=""
Ok itemname$(68)="Piece of glass":iteminfo$(68)="That's a piece of the glass I was given at the Cairo's."
Pm itemname$(69)="Chocolate bar":iteminfo$(69)="Uh, I can't stand chocolate! I prefer Cheesy Camel Sticks."
Q< itemname$(70)="Sand":iteminfo$(70)="A handful of sand."
RH itemname$(71)="Small statue":iteminfo$(71)="A small golden statue."
Sv itemname$(72)="Broken time machine":iteminfo$(72)="This is the strange thing these breakdancer chaps gave to me."
T_ itemname$(73)="Fixed time machine":iteminfo$(73)="Looks as strange as when it was broken."
U_ itemname$(74)="Thread":iteminfo$(74)="It fell off the apron immediately. Poor dessmaking!"
VT itemname$(75)="Apron":iteminfo$(75)="What the hell would I want with an apron?"
W< itemname$(76)="Magnet":iteminfo$(76)="A little magnet."
XK itemname$(77)="Compass":iteminfo$(77)="It always points to the North."
Y] itemname$(78)="Blunt scissors":iteminfo$(78)="No wonder he can't make dresses any more!"
ZR itemname$(79)="Silver scarab":iteminfo$(79)="A beetle figure made of silver."
[r itemname$(80)="Golden scarab":iteminfo$(80)="I should keep it, sell it, and buy myself a house at the beach!"
\H itemname$(81)="Sharp scissors":iteminfo$(81)="As sharp as a razor!"
]p itemname$(82)="Insecticide":iteminfo$(82)="'Dyroach. Kills any little crawling thing within five seconds.'"
^L itemname$(83)="Green leaf":iteminfo$(83)="That'll be the right colour."
_S itemname$(84)="Broken spanner":iteminfo$(84)="Yep, that thing's kinda broken."
`S itemname$(85)="Fixed spanner":iteminfo$(85)="Looks like professionally fixed."
aB itemname$(86)="Screw":iteminfo$(86)="A little metal screw."
 mode=1:
 'mode's: 1 Gehezu, 2 benutze, 3 betrachte, 4 nimm, 5 rede mit, 6 gib
 mark_anim=1
 chat$(180),compare$(180),t$(80),c$(80),p$(80),lk(80)
 chatlen=0
 saylines=1
 answers=1
 ock=0:g=0:G$=""
 comp_chat$(200)
 comp_chatlen=0
 comp_speaktime=0
 comp_pointer=0
 comp_chatpos_x(3),comp_chatpos_y(3),comp_animpos_x(3),comp_animpos_y(3),comp_anim_num(3),comp_anim_time(3),comp_anim_max(3)
 compchat=0
 savename$(18)
(dir$+"saved.n")
 n=0
#A,savename$(n)
 Animationen
 maxanims=250
 anim_x(maxanims),anim_y(maxanims),anim_time(maxanims),anim_sprite(maxanims),anim_lev(maxanims)
 speakmax=300
 speaktime=0
 speaking$=""
 speakcol=0
 speakspeed=8
 speakmode=0
checkifsolved34
 var(69)=1
 (var(70)=0
 var(71)=1)
 ereig_auswirk=0
 ereig_auswirk=1
spiele_filmchen_before
 Specials
 filmchen=3
 filmchen_akt<4
schoose("anim7"):
plot(8,918,96)
 filmchen_akt>=4
 filmchen_akt<8
schoose("anim8"):
plot(8,918,96)
 filmchen_akt>=8
 filmchen_akt<11
schoose("anim48"):
plot(8,918,96)
 Film-Spr zeichnen
 anim_lev(filmchen_akt)=0
schoose("anim"+
(anim_sprite(filmchen_akt)))
plot(8,anim_x(filmchen_akt),anim_y(filmchen_akt))
 FILM 18: Noch ein Film-Spr zeichnen
 filmchen=18
 filmchen_akt>=7
 var(54)=1
 filmchen_akt<=19
   filmchen_akt+=1
schoose("anim"+
(anim_sprite(filmchen_akt)))
plot(8,anim_x(filmchen_akt),anim_y(filmchen_akt))
schoose("inroom3"):
plot(8,0,224)
 FILM 59: Noch ein Film-Spr zeichnen
 filmchen=59
 filmchen_akt=2
 var(129)=0
 filmchen_akt=11
start_specialfilm(16)
 filmchen_akt>=3
   filmchen_akt+=1
schoose("anim"+
(anim_sprite(filmchen_akt)))
plot(8,anim_x(filmchen_akt),anim_y(filmchen_akt))
 filmchen=1
 var(11)=0
 Tanzende Schlange nochmal draufmalen
schoose("obj"+
(odata_sprnum%(obj_first%(2)+obj_frame_akt%(2))))
plot(8,odata_x%(obj_first%(2)+obj_frame_akt%(2)),odata_y%(obj_first%(2)+obj_frame_akt%(2)))
 aber das ist nicht sehr doll geloest.
 filmchen=8
 filmchen_akt=3
 filmchen_blockgame=0:A=240:B=460:
gehhin
 filmchen=12
 filmchen_akt=3
 var(20)=1
 filmchen=13
 filmchen_akt=1
 just_using=1
 filmchen_akt=3
 filmchen_akt=4
 just_using=1
 filmchen_akt>=3
 var(50)=1:
schoose("inroom7"):
plot(8,644,194)
 filmchen_akt=6
 var(22)=1
 filmchen=23
 filmchen_akt=5
playsample(22)
 (filmchen=26
 filmchen=28)
 filmchen_akt=3
 var(70)=1:
checkifsolved34
 (filmchen=30
 filmchen=32)
 filmchen_akt=3
 var(69)=0:
checkifsolved34
 (filmchen=29
 filmchen=31)
 filmchen_akt=3
 var(69)=1:
checkifsolved34
 (filmchen=27
 filmchen=25)
 filmchen_akt=3
 var(70)=0:
checkifsolved34
 (filmchen=34
 filmchen=35)
 filmchen_akt=3
 var(71)=1:
checkifsolved34
 filmchen=37
 filmchen_akt=1
playsample(11)
text("Hee",100+
(200),230+
(80),white)
 filmchen=38
 filmchen_akt=2
playsample(11)
 filmchen_akt<24
schoose("anim54"):
plot(0,410,276)
 filmchen_akt=4
speak("What's this?",290,460,green)
 filmchen_akt=10
speak("Hey! Carpet!",194,520,green)
 filmchen_akt=11
playsample(11)
 filmchen_akt=15
speak("Stop!",170,500,green)
 filmchen_akt=19
speak("You damn door mat!",200,600,green)
 filmchen=39
 filmchen_akt=4
 var(82)=1
 filmchen=40
 filmchen_akt=1
 var(84)=1
 filmchen_akt=3
 var(85)=1:
backload(dir$+orte$+"ort17b"):ereig_auswirk=0
 filmchen_akt=4
 cover_num=1
 filmchen=42
 filmchen_akt=1
 var(93)=1:direction=3
 filmchen_akt>3
 var(93)=1
schoose("inroom2"):
plot(0,1014,228)
 filmchen_akt=10
playerspeak("I wonder what's inside these flasks...")
 filmchen_akt=17
playerspeak("And inside the chests...")
 filmchen_akt=23
 direction=2
 filmchen_akt=24
specialmove(3,0):
speak("AAAHRG!",200,600,yellow)
 filmchen_akt=26
 exn=59:
wannatalk:var(140)=1
 filmchen=44
 filmchen_akt
  5: var(66)=1
  9:
backload(dir$+orte$+"ort24b")
 10:
backload(dir$+orte$+"ort24c")
 11:
backload(dir$+orte$+"ort24d")
 12:
backload(dir$+orte$+"ort24e")
 13:
backload(dir$+orte$+"ort24f")
 14:
backload(dir$+orte$+"ort24g")
 filmchen=48
 filmchen_akt=4
 var(106)=1:ereig_auswirk=0
 filmchen=57
schoose("bottom"):
plot(0,200,0)
 filmchen_akt=25
 var(128)=1
 filmchen_akt=76
 var(129)=1
spiele_filmchen_after
 anim_lev(filmchen_akt)=1
schoose("anim"+
(anim_sprite(filmchen_akt)))
plot(8,anim_x(filmchen_akt),anim_y(filmchen_akt))
 Specials
 filmchen=13
 filmchen_akt>=3
 var(50)=1:
schoose("inroom7"):
plot(8,644,194)
 filmchen=14
antfilm
 filmchen=15
 filmchen_akt=1
speak("Wow!",850,580,yellow)
 filmchen_akt=2
 A=215:B=304:
gehhin
 filmchen_akt=3
speak("Hi Domi!",850,580,yellow)
 filmchen_akt=13
playerspeak("Eh..."):direction=2
 filmchen_akt=26
playerspeak("Erm..."):just_using=1
 filmchen_akt=31
 beaming%=1:beamdir%=1:beamx%=400:beamy%=125:
playsample(3)
 var(118)=1
   gumba$="Walk to"
??
 filmchen_akt>=13
 filmchen_akt<=16
 gumba$="Pick up"
@D
 filmchen_akt>=16
 filmchen_akt<=21
 gumba$="Pick up Sand"
A'
 filmchen_akt=22
additem(70)
B;
 filmchen_akt>=24
 filmchen_akt<=25
 gumba$="Use"
CV
 filmchen_akt>=26
 filmchen_akt<=31
 gumba$="Use Fixed time machine with..."
infotext(gumba$)
 filmchen=5
schoose("hole"):
plot(8,304,98)
 filmchen_akt=16
playsample(19)
 filmchen=1
 Tanzende Schlange nochmal draufmalen
 var(11)=0
PI
schoose("obj"+
(odata_sprnum%(obj_first%(2)+obj_frame_akt%(2))))
Qd
plot(8,odata_x%(obj_first%(2)+obj_frame_akt%(2)),odata_y%(obj_first%(2)+obj_frame_akt%(2)))
 aber das ist nicht sehr doll geloest.
 filmchen_akt>=38
 filmchen_akt<64
schoose("anim37"):
plot(8,340,540)
 filmchen_akt=40
speak("Oh, not again!",350,520,white)
 filmchen_akt=48
speak("Where's that scarecrow? Ah, here.",250,600,white)
 IF filmchen=2 AND filmchen_akt=10 THEN var(11)=1
 filmchen=4
 filmchen_akt=10
playsample(15)
 filmchen_akt=54
 ort=32:neuort=32
 filmchen_akt=203
 ort=9:neuort=9
 filmchen_akt=80
speak("Hey man, why the hell do you stop?",520,440,yellow)
 filmchen_akt=94
speak("Oh, didn't I tell you?",730,450,red)
 filmchen_akt=104
speak("You must pay for part two as well!",730,450,red)
 filmchen_akt=115
speak("Hahahaha! Nice joke!",520,440,yellow)
 filmchen_akt=129
speak("That was no joke, boy. I'd like to have another silver coin.",730,450,red)
 filmchen_akt=150
speak("Look, pal... that was my one and only silver coin!",520,440,yellow)
 filmchen_akt=164
speak("Don't you fool me! You look rich! Give me the coin!",730,450,red)
 filmchen_akt=187
speak("Give it to me, or else...",730,450,red)
 filmchen_akt=192
speak("AAAAAAHHH!!!",520,440,yellow)
 filmchen_akt=194
playsample(19)
 filmchen_akt=198
speak("Oops.",730,450,red)
 filmchen=10
 filmchen_akt=13
 var(47)=1
 filmchen=11
 filmchen_akt=6
 filmchen_akt=8
 just_using=1
 filmchen_akt=7
 var(49)=1
 filmchen=16
 filmchen_akt<2
schoose("anim3"):
plot(0,470,608)
 filmchen_akt=2
 var(53)=1
 filmchen_akt=4
 filmchen_blockgame=0:A=584:B=620:
gehhin
 filmchen_akt=8
 var(53)=0
 filmchen=21
 filmchen_akt=1
 var(53)=1
 filmchen_akt=4
 filmchen_blockgame=0:A=562:B=580:
gehhin
 filmchen_akt=7
 var(53)=0
 filmchen=22
schoose("cover1"):
plot(8,642,336)
schoose("aufzug"):
plot(8,178,388)
 filmchen=45
 filmchen_akt<11
schoose("smile1")
schoose("smile2")
plot(8,540,96)
 filmchen_akt=21
 exn=20:
wannatalk:direction=4
 filmchen=46
 filmchen_akt=15
 want_it_later%=1
 filmchen=47
 filmchen_akt=1
 direction=4
 filmchen_akt=2
speak("Here we go!",780,321,red)
 filmchen_akt=17
text("Blurp!",800,321,red)
 filmchen_akt=18
text("Blurp!",840,300,red)
 filmchen_akt=19
text("Blurp!",820,310,red)
 filmchen_akt=26
speak("OK, I've got it!",780,321,red):var(103)=1
 filmchen_akt=34
 exn=70:
wannatalk:direction=2
 filmchen=53
 filmchen_akt=2
playerspeak("I'd better leave now!"):A=1270:B=200:
gehhin:var(141)=1
 filmchen=54
 filmchen_akt=5
 var(119)=1:exn=76:
wannatalk
 filmchen=55
 filmchen_akt=4
 A=418:B=315:
gehhin
 filmchen_akt=12
 var(121)=1
schoose("cover1"):
plot(8,322,247)
 filmchen=56
 filmchen_akt=9
 var(124)=0
 filmchen_remain-=1
 filmchen_remain<=0
  filmchen_akt+=1
-  filmchen_remain=anim_time(filmchen_akt)
 filmchen_akt>filmchen_len
 filmchen=1
 var(8)=0 :
 Kein Korn mehr auf Dach.
&   filmchen=0:filmchen_blockgame=0
displaypic(dname$)
backload(dir$+sprites$+dname$)
 0,0,1279,1023
swapscreen
 xTIME=
-xTIME>150
 0,0,1279,1023
backplot
swapscreen
 A,B,C:I$=
 C=0
 I$=""
 xTIME=
 A,B,C:I$=
 C>0
  I$<>""
-xTIME>200
 0,0,1279,1023
swapscreen
 0,0,1279,1023
 xTIME=
-xTIME>100
later
displaypic("later")
4 altort=15:ort=16:neuort=16:var(101)=1:
neuerort
start_specialfilm(7):
start_filmchen(47,1)
later3
displaypic("later")
 ort=17:neuort=17:
neuerort
displaypic("ago")
 altort=12:ort=13:neuort=13
later2
displaypic("later2")
( altort=1:ort=34:neuort=34:
neuerort
neuerteil(nnr)
displaypic("p"+
(nnr))
 nnr=2
 altort=33:ort=2:neuort=ort:
neuerort:
start_specialfilm(9):var(136)=1:
 Jetzt erst taucht Betrunkener auf
 nnr=3
 altort=33:ort=2:neuort=ort:
neuerort
start_filmchen(fnu,blg)
 pu,ko,ppk,kox
 filmchen=fnu
 filmchen_akt=1
 filmchen_remain=0
 filmchen_blockgame=blg
 Was passiert mit anderen Objekten, wenn Film gestartet wird?
 IF filmchen=1 THEN obj_num=2
 IF filmchen=2 THEN var(10)=1
 Film laden
# pu=
(dir$+misc$+"anim"+
(fnu))
 ppk=0
  ppk+=1
  nu$=""
   kox=
 kox<>59
 kox<>10
 nu$+=
(kox)
 kox=59
  anim_lev(ppk)=
(nu$)
  nu$=""
   kox=
 kox<>59
 kox<>10
 nu$+=
(kox)
 kox=59
  anim_sprite(ppk)=
(nu$)
  nu$=""
   kox=
 kox<>59
 kox<>10
 nu$+=
(kox)
 kox=59
  anim_x(ppk)=
(nu$)
  nu$=""
   kox=
 kox<>59
 kox<>10
 nu$+=
(kox)
 kox=59
  anim_y(ppk)=
(nu$)
  nu$=""
   kox=
 kox<>59
 kox<>10
 nu$+=
(kox)
 kox=59
 kox=42
  anim_time(ppk)=
(nu$)
 kox=42
 filmchen_len=ppk
! filmchen_remain=anim_time(1)
initscreen
 MODE 28:OFF
 DIM modeblock% 1024
 modeblock%=0
 hallo%=0
 lowres%=0
     .
 "OS_ScreenMode",1
 hallo%,modeblock%
 "x640 y400 c32k"
 modeblock%!0=1
 modeblock%!4=640
 modeblock%!8=400
 modeblock%!12=4
 modeblock%!16=-1
 SYS "OS_ScreenMode",0,modeblock%
 lowres%=0
"OS_ChangeDynamicArea",2,-167
 lowres%=0
    3*
"OS_ChangeDynamicArea",2,640*400*2
    5+
 SYS"OS_ChangeDynamicArea",2,640*256
 lowres%
 0,102
 SwapScreen vorbereiten
6,112,2
 init font
 "Font_CacheAddr"
 version
 version<335
 blend_feature=0
 blend_feature=1
 lowres%=0
 262273,,fontname$,fontsmall,fontsmall
 mfnt%
 lowres%=1
 262273,,fontname$,fontsmall,fontsmall+60
 mfnt%
 lowres%=0
 262273,,fontname$,fontnormal,fontnormal
 sfnt%
 lowres%=1
 262273,,fontname$,fontnormal,fontnormal+60
 sfnt%
 lowres%=0
 262273,,"xtra",fontnormal,fontnormal
 xfnt%
 lowres%=1
 262273,,"xtra",fontnormal,fontnormal+60
 xfnt%
assemble
make_scr_block
make_fade_block
initblock
 *pointer
 *fx 4,1
 1,0,0,0
 2,255,255,200
swapscreen
 screen=1
 6,112,1
 6,113,2
    ]
 6,112,2
 6,113,1
    a
 screen=screen
gehhin
 Gehen
 A>=picx
 B>=picy
find_out_nearest(1)
    l,
 arrived
 nxt_way>0
wander_init
modes
 Ereignisse (Gehe zu, Benutze...)
 mok,eaw
 t$="":say$=""
 C=2
examine(1)
 ext=1
 C=4:mode=4
 ext=2
 C=4:mode=5
 enterroom>0
 mode<>2
 mode=1
 C=1
mode3 :
 Look at
 mode
mode1 :
 Walk to
mode2 :
mode3 :
 Look at
mode4 :
 Pick up
mode5 :
 Talk
mode6 :
 Give
mode7 :
 Open
 t$<>""
 speakmode=0
 infotext$=t$
 say$<>""
playerspeak(say$)
lab_doors
 ort
 exn=1
 ld%=101
 exn=2
 ld%=102
 exn=3
 ld%=103
 exn=4
 ld%=104
 exn=1
 ld%=105
 exn=2
 ld%=106
 exn=3
 ld%=107
 exn=1
 ld%=108
 exn=2
 ld%=109
 exn=3
 ld%=110
 exn=4
 ld%=111
 exn=5
 ld%=112
 exn=1
 ld%=113
 exn=2
 ld%=114
 exn=3
 ld%=115
 exn=4
 ld%=116
 exn=1
 ld%=117
 exn=2
 ld%=118
 exn=3
 ld%=119
 exn=4
 ld%=120
 exn=5
 ld%=121
 exn=6
 ld%=122
 exn=1
 ld%=123
 exn=2
 ld%=124
 exn=3
 ld%=125
 exn=1
 ld%=126
 exn=2
 ld%=127
 exn=1
 ld%=128
 exn=25
 ld%=130
 ld%
 101: target%=106
 102: target%=129
 103: target%=101
 104: target%=110
 105: target%=104
 106: target%=103
 107: target%=105
 108: target%=101
 109: target%=106
 110: target%=107
 111: target%=115
 112: target%=107
 113: target%=110
 114: target%=108
 115: target%=118
 116: target%=128
 117: target%=120
 118: target%=123
 119: target%=126
 120: target%=114
 121: target%=113
 122: target%=117
 123: target%=111
 124: target%=122
 125: target%=121
 126: target%=127
 127: target%=105
 128: target%=116
 130: target%=131
 target%
 101:exn=18:altort=01
 102:exn=17:altort=18
 103:exn=18:altort=03
 104:exn=18:altort=04
 105:exn=19:altort=01
 106:exn=19:altort=02
 107:exn=19:altort=03
 108:exn=20:altort=01
 109:exn=20:altort=02
 110:exn=20:altort=03
 111:exn=20:altort=04
 112:exn=20:altort=05
 113:exn=21:altort=01
 114:exn=21:altort=02
 115:exn=21:altort=03
 116:exn=21:altort=04
 117:exn=14:altort=22:var(112)=1
 118:exn=22:altort=02
 119:exn=22:altort=03
 120:exn=22:altort=04
 121:exn=22:altort=05
 122:exn=22:altort=06
 123:exn=23:altort=01
 124:exn=23:altort=02
 125:exn=23:altort=03
 126:exn=24:altort=01
 127:exn=24:altort=02
 128:exn=34:altort=01
 129:exn=17:altort=18
 131:exn=25:altort=34
mode1
 t$="Walk to "
M firstclick=0:use_a=0:usemode_a=0:use_a$="":use_b=0:usemode_b=0:use_b$=""
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
examine(2)
 IF ext=3 AND arrived=0 AND 1=0 THEN
 enterroom
    exn=enterroom:enterroom=0
 Falls wir gerade Tuer erreichen:
   mok=1
 ort=9
 mok=0
 ort=8
 exn=10
 mok=0
 ort=10
 exn=8
 mok=0
 ort=11
 lostindesert=1
0    R=
 R=1
 altort=11:exn=10
 exn=13
 ort=13
 lostindesert=1
0    R=
 R=1
 altort=11:exn=10
 exn=11
   mod_altort=-1
 ort=26
 exn=29
 var(109)=0
 mok=0
 ort=17
 mod_altort=17:altort=2
 ort=14
 exn=22
 altort=6
 (ort>=18
 ort<25)
 ort=34
    mod_altort=ort
lab_doors
 IF exn=9 AND ort=8 AND var(12)=0 THEN mok=0:PROCplayerspeak("Ich komme nicht
ber die Schlucht!")
 IF exn=14 AND ort=13 AND var(23)=0 AND var(10)=1 THEN
 m
  IF var(31)=0 THEN mok=0:PROCplayerspeak("Ich traue mich da nicht durch! Da weht ein starker Wind!")
 ENDIF
"&
 mok
 ort=exn:neuort=1:mode=1
 C=4
we_are_here=0
gehhin
 IF C=4 AND ex$="Mine" AND ort=10 AND var(13)=0 THEN
 var(13)=1
 exn=12:PROCwannatalk
 ENDIF
mode2
 firstclick=0
  t$="Use "
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
 C=4
 ex$=""
 B>picy
 mode=1:merk_act=0:
modes:
 C=4
 ex$<>""
64   use_a=exn:usemode_a=1:use_a$=ex$:firstclick=1
70   sibmerk_x=A:sibmerk_y=B:first_is_screen=1
 A,B,C:
  t$="Use "+use_a$
examine(1)
 ex$<>use_a$
 t$+=" with "
 ex$=""
 t$+="..."
 ex$<>use_a$
 t$+=ex$
 t$+=" with ..."
 IF C=4 AND ex$<>"" AND arrived=1 THEN
 C=4
 ex$<>""
B&   merk_act=mode:merk_x=A:merk_y=B
gehhin
 arrived=1
 merk_act=mode
 second_is_backpack
wannause
    second_is_backpack=0
    second_is_backpack =0
K%    A=merk_x:B=merk_y:
examine(4)
 ex$<>""
     merk_act=0
     mode=1
O)     use_b=exn:usemode_b=1:use_b$=ex$

wannause
Q
mode3
 t$="Look at "
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
 (C=4
 C=1)
 ex$<>""
 ex$="Old rusty tins"
 var(18)=0
 var(18)=1:info$="They're all old and used. Some of them still have their little metal keys for opening."
 ex$="Hole"
 var(37)=0
 var(37)=1
playerspeak(info$):mode=1
 A>px
 direction<>2
 nd=2
 A<px
 direction<>1
 nd=1
 nd>0
 arrived=1
d$  newdir=nd:
turnaround:newdir=0
showmaps
 ma,mb,mc
 screen=1
 6,112,1
 6,112,2
 item(mouseitem)=15
schoose("map1"):
cmemplot(8,380,260)
 item(mouseitem)=14
schoose("map2"):
cmemplot(8,410,220)
 screen=1
 6,112,2
 6,112,1
 mA,mB,mC:
 mC=0
 mA,mB,mC:
 mC<>0
 mode=1
mode4
 t$="Pick up "
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
 C=4
 ex$=""
 B>picy
 mode=1:merk_act=0:
modes:
 IF C=4 AND ex$<>"" AND arrived=1 THEN
 C=4
 ex$<>""
z&   merk_act=mode:merk_x=A:merk_y=B
gehhin
 arrived=1
 merk_act=mode
~#  A=merk_x:B=merk_y:
examine(4)
 ex$<>""
   merk_act=0
   mode=1:
 ext=2
 say$="Am I a kidnapper?"
 ext=3
 ext=4
 say$="Come on, I won't carry a DOOR around! Really!"
 ext=1
 exn<>1

 exn

T
(2)=1
 say$="That's too heavy."
 say$="I can't possibly carry that."

S
(2)=1
 say$="That's just plain silly."
 say$="You must be kidding."
%
 4:say$="I can't move it."
0
 5:say$="I can't reach it from here."
-
 6:say$="I don't dare to do this."
E
 7:say$="I won't flush that water into my pocket, really!"

M
(2)=1
 say$="That's too big."
 say$="Where would I put this?"

f
(2)=1
 say$="This would make my dad very angry."
 say$="Oh, Dad wouldn't like that..."
@
10:say$="That's my father's lunch. He would kill me."
M
11:say$="He's watching me. I think I could lose my hand for this."
G
12:say$="It's old and rotten. I think I have no use for it."
F
13:say$="No, no, no. That's really ugly; I won't touch it."
&
14:say$="I'm a vegetarian."
'
15:say$="I'm a teetotaller!"
8
16:say$="I'm allergic to this kind of spice!"
6
17:say$="The fruits have already gone bad."
=
18:say$="It's hot. I don't want to burn my hands!"
*
19:say$="Eeeeh! I hate kuskus!"
>
20:say$="It's sticky and ugly. I won't touch that."
;
21:say$="I can really not see any use for that."
g
22:say$="These lousy tourist imitations of bottles will never be able to serve any purpose!"
l
23:say$="Since my father has built such a pyramid, I can't stand these geometric things anymore!"
1
24:say$="Damn! I can't undo the knot!"
B
25:say$="I could hurt myself with these sharp weapons!"
*
26:say$="I should wait longer."
\
27:say$="I think sitting in my pocket wouldn't be very comfortable for a monkey."



 ort

Q
checkitem(1)=0
take_and_additem(1)
 say$="I've got sufficient."


 var(59)=0
        exn=64:
wannatalk

L
 ex$="Bucket"
 var(35)=0
 var(35)=1:
take_and_additem_low(21)
T
 ex$="Chilli"
 var(36)=0
 var(105)=1
 var(36)=1:
take_and_additem(2)
S
 ex$="Chilli"
 var(105)=0
 say$="I won't get too close to that cat!"
M
 ex$="Insecticide"
 var(51)=0
 var(51)=1:
take_and_additem(82)

 ex$="Rat poison"
W
checkitem(3)=0
take_and_additem_low(3)
 say$="I've got sufficient."



E
 ex$="Rope"
 say$="No, I won't touch this magic thing!"
K
 ex$="Rope inside basket"
 var(16)=1:
take_and_additem_low(11)
D
 Darf auch nicht mehr gehen, wenn Jungs schon zufrieden.
4
 ex$="Salad"
 ex$="Ham"
 ex$="Rolls"
>
 filmchen=1
 filmchen_akt>43
 filmchen_akt<88
6
 ex$="Salad"
 ex$="Ham"
 ex$="Rolls"
g
checkitem(10)=1)
checkitem(7)=1
checkitem(8)=1
checkitem(9)=1)
 var(9)=1
F           say$="I won't steal any more stuff from this poor guy!"


 ex$

 "Salad":
Z
checkitem(4)=0
take_and_additem(4)
 say$="I've already got salad."

 "Ham":
X
checkitem(5)=0
take_and_additem(5)
 say$="I've already got ham."

 "Rolls":
[
checkitem(6)=0
take_and_additem(6)
 say$="I've already got a roll."




         exn=10:
wannatalk



x
 IF ex$="Member card for Cairo's" PROCtake_and_additem(65):var(30)=1:REM Armandine muss noch was dazu sagen!


 ex$="Fishbone"
 var(5)=0
take_and_additem(60):var(5)=1:
playerspeak("I hardly dare to touch that dirty stinking thing!")
F
 ex$="Sign"
 var(32)=0
 say$="It's fixed by that screw."
O
 ex$="Loose sign"
 var(32)=1
take_and_additem_low(65):var(30)=1
8
 ex$="Screw"
take_and_additem(86):var(32)=1

T
 ex$="Feather"
 var(6)=0
 direction=3:
take_and_additem(20):var(6)=1
H
 ex$="Old brush"
 var(7)=0
take_and_additem(53):var(7)=1

C
 ex$="Green leaf"
take_and_additem_low(83):var(72)=1

X
 ex$="Old broken priest staff"
 var(17)=0
take_and_additem(27):var(17)=1
X
 ex$="Small rusty tin key"
 var(18)=1
take_and_additem_low(29):var(19)=1
M
 ex$="Pirate stuff"
 var(20)=1
take_and_additem(18):var(21)=1
W
 ex$="Stone leg"
 var(22)=0
playerspeak("It's pinned under that rock.")
a
 ex$="Stone leg"
 var(22)=1
checkitem(28)=0
take_and_additem_low(28):var(23)=1

z
 ex$="Stones"
checkitem(30)=0
take_and_additem_low(30)
 say$="I won't fill all my pockets with stones!"

H
 ex$="Camel hair"
checkitem(32)=0
take_and_additem(32)
T
 ex$="Camel hair"
checkitem(32)=1
 say$="I think I have sufficient!"

$
 ex$="Sand"
 var(119)=1


 ex$="Oil lamp"

 var(91)=1
-
take_and_additem(33):var(40)=1
^
 var(41)=0
playerspeak("I think I should take that glass with beetles too!")

?
playerspeak("The souvenir trader would see it!")


'
 ex$="Glass with beetles"

 var(91)=1
-
take_and_additem(35):var(41)=1

?
playerspeak("The souvenir trader would see it!")



>
 ex$="Dates"
take_and_additem_low(31):var(48)=1
E
 ex$="Dry skin on rope"
take_and_additem(37):var(89)=1

=
 ex$="Rope"
take_and_additem_low(38):var(83)=1
;
 ex$="Sun"
take_and_additem(39):var(97)=1

i
 ex$="Wedge"
 direction=1:
take_and_additem_low(41):var(60)=1:
backload(dir$+orte$+"ort18b")

D
 ex$="Loose plank"
take_and_additem_low(42):var(61)=1

B
 ex$="Silver scarab"
take_and_additem(79):var(64)=1
"
 ex$="Golden scarab"
+
take_and_additem(80):var(65)=0
    E
 var(66)=0
start_filmchen(50,1)
start_filmchen(52,1)


D
 ex$="Wagon wheel"
take_and_additem_low(40):var(67)=1
>
 ex$="Bone"
take_and_additem_low(44):var(115)=1

A
 ex$="Bone in slot"
take_and_additem(44):var(96)=0

j
 ex$="Baseball stuff"
take_and_additem(45):
start_filmchen(42,1):var(139)=1:
playsample(16)

>
 ex$="Dynamite"
take_and_additem(12):var(107)=1

F
 ex$="Rotten plant"
take_and_additem_low(55):var(110)=1

E
 ex$="Spanner in water"
take_and_additem(84):var(34)=1

O
 ex$="Small palm"
 direction=2:
take_and_additem_low(49):var(68)=1

1
 ex$="Small statue on construction"
!
take_and_additem(71)

rotor(24)
G
 var(69)=0
start_filmchen(26,1)
start_filmchen(28,1)

 +
 ex$="Small statue on podest"
!!
take_and_additem(71)
"U
 (var(70)=0
 var(71)=1)
start_filmchen(32,1)
start_filmchen(30,1)


%
mode6
 ganyway=0
 t$="Give "
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
 C=4
 ex$=""
 B>picy
 mode=1:merk_act=0:
modes:
 firstclick
  t$="Give "+use_a$+" to "
 ex$>""
 ex$<>use_a$
 t$+=ex$
 t$+="..."
 C=4
 ex$<>""
 firstclick=0
7?
playerspeak("Then I should take it firstly."):mode=1:
 IF C=4 AND ex$<>"" AND arrived=1 AND firstclick=1 THEN
 C=4
 ex$<>""
 firstclick=1
<%  merk_act=mode:merk_x=A:merk_y=B
gehhin
 arrived=1
 merk_act=mode
@#  A=merk_x:B=merk_y:
examine(4)
 ex$<>""
   merk_act=0
   mode=1
 ext<>2
    ganyway=0
F2
 (use_a$="Corn"
 ex$="Bird")
 ganyway=1
G5
 (use_a$="Fishbone"
 ex$="Cat")
 ganyway=1
H@
 (use_a$="Fishbone"
 ex$="Striped cat")
 ganyway=1
I:
 (use_a$="Chocolate bar"
 ex$="Cat")
 ganyway=1
J<
 (use_a$="Fishbone"
 ex$="Ant street")
 ganyway=1
K<
 (use_a$="Broken spanner"
 ex$="Hole")
 ganyway=1
L;
 (use_a$="Fixed spanner"
 ex$="Hole")
 ganyway=1
MM
 (use_a$="Broken time machine"
 ex$="Hole")
 var(78)=1
 ganyway=1
NB
 (use_a$="Rubbish-bin sign"
 ex$="Entrance")
 ganyway=1
 (use_a$<>"Broken time machine"
 ex$="Hole")
 var(78)=1
take_and_additem_low(0):
speak("Erm, well, I don't think I could fix that!",380,210,blue):mode=1
QB
 ex$<>"Hole"
 use_a$="Broken time machine"
 var(78)=0
Ry
 ganyway=0
playerspeak("That's very funny, really."):mode=1:firstclick=0
 just_using=1:use_b$=ex$:
wannause
    use_b$=ex$
 PROCwannagive
    giveanim=1
Y<    want_to_give=1:givemerk_a$=use_a$:givemerk_b$=use_b$
mode5
 talkok
 t$="Talk to "
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
 C=4
 ex$=""
 B>picy
 mode=1:merk_act=0:
modes:
 IF C=4 AND ex$<>"" AND arrived=1 THEN
 C=4
 ex$<>""
h&   merk_act=mode:merk_x=A:merk_y=B
gehhin
 arrived=1
 merk_act=mode
l$   A=merk_x:B=merk_y:
examine(4)
 ex$<>""
    merk_act=0
    mode=1:
 ext<>2
     talkok=0
r<
 ort=30
 ex$="Entrance"
 talkok=1:opendoor%=1
sN
 ort=30
 ex$="Hole"
 var(77)=1
 talkok=1:exn=47:
wannatalk
tK
 ort=5
 ex$="Cat"
 talkok=1:
playerspeak("Hello cat!")
uK
 ort=3
 ex$="Striped cat"
 talkok=1:
playerspeak("Hello cat!")
vA
 talkok=0
 say$="Oh, sure! Let's talk to the "+ex$+"!"
w
 ext=2
wannatalk
mode7
 t$="Open "
examine(1)
 ex$=""
 t$+="..."
 t$+=ex$
 C=4
 ex$=""
 B>picy
 mode=1:merk_act=0:
modes:
 IF C=4 AND ex$<>"" AND arrived=1 THEN
 C=4
 ex$<>""
&   merk_act=mode:merk_x=A:merk_y=B
 hier schon mal auf alle Faelle ausschliessen, dass
 er durch Tuer geht, obwohl er sie zumachen will.
 Achtung, koennte in Konflikt mit anderen Oeffnen-Sachen kommem!
   eaw=ereig_auswirk
 ereig_auswirk=0
 ereig_auswirk=1
gehhin
   ereig_auswirk=eaw
 arrived=1
 merk_act=mode
#  A=merk_x:B=merk_y:
examine(4)
 ex$<>""
   merk_act=0
   mode=1:
 ext<>3
 ext<>4
 ext=1
K
 ort=30
 ex$="Entrance"
 exn=35:opendoor%=1:
wannatalk:say$=" "
1
 ort=6
 ex$="Rubbish-bin"
 var(4)=0
      var(4)=1

 PROCplaysample(3)
:      say$="I've opened the rubbish-bin.":just_using=1


 ex$="Door"
 ort=20

 var(113)=1
2       say$="I've blocked it using the wedge."

Q
 var(114)=0
 var(114)=1:ereig_auswirk=0
 var(114)=0:ereig_auswirk=1
?       say$="Far in the distance, I hear something moving."



 ex$="Stone door"
8
start_filmchen(8,1):var(39)=1:ereig_auswirk=0
S
 var(56)=0
 var(56)=1:say$="Wow!"
 say$="That's an interesting thing."


 ex$="Large door"
4
start_filmchen(21,1):say$="Down again..."

r
 ort=1
 var(38)=0
 var(54)=1
 ex$="Door"
start_filmchen(9,0):say$="Wow!":var(38)=1:ereig_auswirk=0
c
 ort=1
 var(54)=0
 ex$="Door"
speak("STOP!           HALT!",630,510,bgreen):say$=" "
4
 ort=9
 ex$="Chest"
 say$="It's locked."
,
 say$=""
 say$="I can't open it."

 say$=" "
 say$=""

     say$="I'm no doctor."

 ort
;
 Welches 'var' ist fuer die akt. Tuer zustaendig?

 1: v=1

 2: v=1

 6: v=2

 7: v=2

 var(v)


 say$="Opened!"

 PROCplaysample(1)
      var(v)=1
      ereig_auswirk=0


 PROCplaysample(2)

 say$="Closed!"
      ereig_auswirk=1
      var(v)=0

checkitem(26)
deleteitem(26):
additem(47)
 var(43)+var(44)+var(45)+var(46)=4
deleteitem(47):
additem(48)
error
6,112,1:
6,113,1
 SYS "OS_ScreenMode",0,modeblock%
 lowres%=0
 "x800 y600 c256"
 PRINT REPORT$;" at line ";ERL;"(";ERR;")";
 IF ERR=134 THEN PRINT " (";spname$;" / ";name$;" ?)";
 PRINT  ort
cd_stop
 PRINT
 PRINT "Press key" : G=GET
 SYS"Wimp_CommandWindow",-1
infotext(it$)
 Info-Text generieren ('Gehe zu Tuer...')
text(it$,640,112,blue)
usebone
 var(93)+var(94)+var(95)=3
start_filmchen(44,1)
start_filmchen(43,1)
beetles
checkitem(51)
deleteitem(51):
additem(52)
checkitem(50)
deleteitem(50):
additem(51)
 var(111)=1:genienum%=54
wannause
 Was passiert beim Benutzen
% firstclick=0:working=0:mode=1:
checkuseB("Magic Ankh","")
loadsave(0)
checkuseB("Feather","Cat")
playerspeak("I'd better not tease that nice little cat.")
checkuseB("Broken spanner","Bird")
playerspeak("Better not. I think this would break it.")
checkuseB("Fixed spanner","Bird")
playerspeak("Better not. I think this would break it.")
checkuseB("Broken spanner","Cat")
playerspeak("Oh yes! And afterwards the wine man will use his bottles on me!")
checkuseB("Fixed spanner","Cat")
playerspeak("Oh yes! And afterwards the wine man will use his bottles on me!")
checkuseB("Apron","")
playerspeak("No, I won't wear this. Really!")
checkuseB("Red button","")
 just_using=1:
playerspeak("I feel a strange vibration.")
checkuseB("Mysterious construction","")
 var(121)=0
 direction=1:
take_and_additem_low(0)
checkuseB("Souvenir trader","Osiris")
 direction=1:just_using=1:
start_filmchen(59,1):var(130)=1:var(134)=0:
speak("AAAAAAAAAAAAAAAH!",550,400,red)
checkuseB("Mysterious construction","")
 var(121)=1
 direction=1:telescreen%=25:teleding%=1
checkuseB("Slot","Baseball bat")
 direction=3:just_using=1:
deleteitem(63):var(123)=1
checkuseB("One-armed bandit","")
 var(123)=0
 direction=3:
playerspeak("The one-armed bandit's got no arms at all!")
checkuseB("One-armed bandit","")
 var(123)=1
3  just_using=1:var(124)=1:
start_filmchen(56,1)
 var(126)=1
 var(127)=1:
start_specialfilm(15)
 var(125)=1
 var(126)=1
 var(125)=0
 var(125)=1
checkuseB("Fixed time machine","")
 var(118)=0
playerspeak("It's useless without new batteries.")
playerspeak("No, I won't use that strange machine again. Sorry.")
checkuseB("Broken time machine","")
 say$="Can't you read? It's broken!!"
checkuse(21,"Silver scarab","Empty space")
 just_using=1:var(64)=0:
deleteitem(79)
checkuse(21,"Golden scarab","Empty space")
-   just_using=1:var(65)=1:
deleteitem(80)
 var(66)=0
start_filmchen(49,1)
start_filmchen(51,1):ereig_auswirk=0
checkuse(20,"Wedge","Door")
take_and_additem_low(0):var(113)=1:var(114)=1:say$="It won't close anymore now.":ereig_auswirk=0:
deleteitem(41)
checkuse(30,"Rubbish-bin sign","Entrance")
 var(31)=0
 exn=36
 exn=37
  opendoor%=1
wannatalk
checkuseB("Fixed time machine","Energy field")
 var(118)=0
 var(117)=1:working=1:
start_specialfilm(12):
specialmove(7,0)
 var(118)=1
playerspeak("No, I won't use that strange machine again. Sorry.")
checkuseB("Dynamite","Small hole")
 var(109)=1:working=1:
start_filmchen(53,1):
deleteitem(12)
checkuse(1,"Dry crocodile skin","")
start_specialfilm(5)
checkuseB("Holy scarabs","Osiris")
take_and_additem_low(0):
beetles
checkuseB("A few holy scarabs","Osiris")
take_and_additem_low(0):
beetles
checkuseB("Almost no holy scarabs","Osiris")
take_and_additem_low(0):
beetles
checkuseB("Dry crocodile skin","")=1
 ort<>1
playerspeak("I won't use it as long as it's not ABSOLUTELY necessary!")
checkuseB("Wet crocodile skin","")
 say$="As long as it's THAT wet I won't use it at all!"
checkuse(16,"Wet crocodile skin","Rope")
 just_using=1:var(87)=1:
deleteitem(36)
checkuseB("Wet crocodile skin","Rope ")
playerspeak("But where should I put it?")
checkuseB("Long rope","Cylinder")
checkuseB("Long rope","Very small cog wheel")
 just_using=1:var(93)=1:
deleteitem(38)
checkuseB("Sun","Small empty space")
 just_using=1:var(94)=1:
deleteitem(39)
checkuseB("Wagon wheel","Large empty space")
 just_using=1:var(95)=1:
deleteitem(40)
checkuseB("Bone","Slot")
 just_using=1:var(96)=1:
deleteitem(44)
checkuseB("Bone in slot","")
 just_using=1:
usebone
checkuseB("Baseball","Deadly hell hound")
specialmove(3,0):just_using=1:
start_filmchen(48,1):
deleteitem(61)
checkuseB("Drunken man","Bucket filled with water")
start_specialfilm(6)
checkuseB("Drunken man","Bucket 1/2 filled with water")
start_specialfilm(6)
checkuseB("Drunken man","Bucket 1/4 filled with water")
start_specialfilm(6)
checkuseB("Drunken man","Almost empty bucket")
start_specialfilm(6)
checkuseB("Feather","Magic carpet")
  working=1:just_using=1
 var(80)=1
 var(10)=0
 direction=3:
start_filmchen(38,1):var(10)=1:var(11)=1
 var(79)=1
 var(80)=0
 direction=3:
start_filmchen(37,1):var(80)=1
 var(79)=0
 direction=3:
start_filmchen(37,1):var(79)=1
checkuseB("Rope ","")
 say$="Nah, it's not yet time to quit!"
checkuseB("Piece of glass","Wooden construction")
 working=1:
deleteitem(68):
take_and_additem_low(0):
start_filmchen(40,1)
checkuseB("Fishbone","Cat")
 working=1:exn=21:just_using=1:
wannatalk
checkuseB("Fishbone","Striped cat")
 say$="No, it hasn't deserved it so easily!"
checkuseB("Hole","Broken spanner")
 working=1:direction=2:
take_and_additem_low(0):exn=48:
wannatalk
checkuseB("Hole","Broken time machine")
 working=1:direction=2:
deleteitem(72):
take_and_additem_low(0):exn=51:
wannatalk
checkuseB("Hole","Fixed spanner")
 working=1:direction=2:
deleteitem(85):var(78)=1:
take_and_additem_low(0):exn=49:
wannatalk
checkuseB("Chocolate bar","Cat")
 working=1:
deleteitem(69):
start_filmchen(36,1):var(76)=1
checkuseB("Lock","Tin key")
 working=1:just_using=1:
deleteitem(29):
start_filmchen(12,0):
playsample(16)
checkuseB("Lock","Fishbone")
playerspeak("It's too large. I need a smaller key.")
checkuseB("Chest","Tin key")
 working=1:
playerspeak("I should try the lock.")
checkuseB("Priest staff","Small rock")
 working=1:
start_filmchen(13,1):
deleteitem(27)
checkuseB("Priest staff","Huge scary teeth")
 working=1:
playerspeak("Too big to put it in there... won't fit lengthwise and it won't fit crosswise.")
checkuseB("Marble leg","Huge scary teeth")
 working=1:just_using=1:
playerspeak("That'll teach you nasty crocodile!"):
deleteitem(28):var(24)=1
checkuseB("Marble leg","Crocodile")
playerspeak("Actually, I'm afraid in its teeth!")
checkuseB("Stone leg","Huge scary teeth")
 working=1:
playerspeak("I'd have to take the leg firstly.")
checkuseB("Broken spanner","Huge scary teeth")
playerspeak("I'm no dentist!")
checkuseB("Fixed spanner","Huge scary teeth")
playerspeak("I'm no dentist!")
checkuseB("Pirate sabre","Crocodile")
 var(24)=1
 working=1:killkroko%=1
checkuseB("Pirate sabre","Crocodile")
 var(24)=0
 working=1:
playerspeak("I won't try a fight as long as it could bite me!!!")
checkuseB("Brush without bristles","Camel hair")
 working=1:
deleteitem(32):
deleteitem(53):
additem(54)
checkuseB("Brush without bristles","Dirty telescope")
 working=1:
playerspeak("Well, I could probably do that if the brush had any bristles left...")
checkuseB("Thread","Magnet")
 working=1:
deleteitem(74):
deleteitem(76):
additem(77):lostindesert=0
checkuseB("Brush","Dirty telescope")
 working=1:
deleteitem(16):
additem(17):
playerspeak("Gosh! Now that looks good!")
checkuseB("Brush","Clean telescope")
 working=1:
playerspeak("I think it's clean enough.")
checkuseB("Broken spanner","Screw")
 working=1:
deleteitem(84):
deleteitem(86):
additem(85):
playerspeak("I think I've fixed it.")
checkuseB("Old bucket","Nile")
 working=1:
deleteitem(21):
take_and_additem_low(22):bucket_hole%=80
checkuseB("Bucket 1/2 filled with water","Nile")
 working=1:
deleteitem(23):
take_and_additem_low(22):bucket_hole%=80
checkuseB("Bucket 1/4 filled with water","Nile")
 working=1:
deleteitem(24):
take_and_additem_low(22):bucket_hole%=80
checkuseB("Almost empty bucket","Nile")
 working=1:
deleteitem(25):
take_and_additem_low(22):bucket_hole%=80
checkuseB("Flask","Oil")
checkuseB("Nearly a drink","Oil")
 working=1:
deleteitem(34):var(43)=1:
checkuseB("Flask","Chilli sauce")
checkuseB("Nearly a drink","Chilli sauce")
 working=1:
deleteitem(2):var(44)=1:
checkuseB("Flask","Rat poison")
checkuseB("Nearly a drink","Rat poison")
 working=1:
deleteitem(3):var(45)=1:
checkuseB("Flask","Dates")
checkuseB("Nearly a drink","Dates")
 working=1:
deleteitem(31):var(46)=1:
checkuseB("Date palm leaves","Stone")
deleteitem(30):just_using=1:
start_filmchen(10,1)
checkuseB("Rope ","Thick palm trunk")
 say$="That palm trunk is too thick."
checkuseB("Rope ","Small palm trunk")
 say$="The bark is too slipperly."
checkuseB("Rope ","Trunk of date palm")
 say$="The bark is too slipperly."
checkuseB("Rope ","Nice palm trunk")
 say$="No. That palm trunk looks so nice, I don't want to spoil it with this rope."
checkuseB("Rope ","Straight palm trunk")
 say$="That would work, providing I'd find another trunk near this one."
checkuseB("Rope ","Strong palm trunk")
 just_using=1:A=868:B=348:
gehhin:
start_filmchen(11,1):
deleteitem(11)
checkuseB("Fishbone","Ant street")
start_filmchen(14,1):
deleteitem(60):
take_and_additem_low(0)
checkuseB("Scarabs","Long thin leaf")
deleteitem(55):
deleteitem(35):
additem(59)
checkuseB("Scarabs on leaf","Burning river")
take_and_additem_low(0):
deleteitem(59):
additem(50):var(108)=1:
playerspeak("Uhh... I feel a shiver moving through the caves! Something has changed! Who knows what I have just done!")
checkuseB("Scarabs on leaf","Burning river ")
playerspeak("There's no suitable place where I could get close enough without burning myself.")
checkuseB("Scarabs","Burning river ")
playerspeak("There's no suitable place where I could get close enough without burning myself.")
checkuseB("Scarabs","Burning river")
playerspeak("I can still not get that close to the river without burning my hand!")
checkuseB("Window","Flower pot")
start_filmchen(23,1):
deleteitem(49):just_using=1:direction=3:var(59)=1
checkuseB("Moist stones","Blunt scissors")
deleteitem(78):
additem(81):
take_and_additem_low(0):say$="Wow, that thing'll be mighty sharp soon!"
checkuseB("Moist stones","Sharp scissors")
 say$="Hey, this is not supposed to become a dealy murder weapon!"
checkuseB("Plank","Gorge")
deleteitem(42):var(62)=1:
take_and_additem_low(0):ereig_auswirk=0
checkuseB("Small statue","Podest")
deleteitem(71):just_using=1
 var(71)=1
start_filmchen(31,1)
start_filmchen(29,1)
checkuseB("Small statue","Mysterious construction")
 var(71)=0
deleteitem(71):just_using=1
rotor(20)
 var(69)=1
start_filmchen(27,1)
start_filmchen(25,1)
(   say$="I've put the sand there..."
checkuseB("Sand","Mysterious construction")
 var(70)=0
2   say$="I should remove the statue for that."
deleteitem(70):just_using=1
rotor(22)
 var(69)=1
start_filmchen(35,1)
start_filmchen(34,1)
checkuseB("Sand","Podest")
 say$="I've got too much sand for the small podest."
 Das Original:
 IF FNcheckuseB("Corn","Roof")=1 AND var(8)=0 THEN working=1: var(8)=1:just_using=1:PROCdeleteitem(1):PROCstart_filmchen(1,0)
 IF FNcheckuseB("Corn","Bird")=1 THEN working=1:just_using=1: PROCdeleteitem(1):PROCstart_filmchen(3,0)
 Die Faelschung: (zur zu Demo-Zwecken)
 filmchen=0
checkuseB("Corn","Roof")=1
 var(8)=0
 working=1: var(8)=1:just_using=1:
start_filmchen(1,0)
checkuseB("Corn","Bird")=1
 working=1:just_using=1:
start_filmchen(3,0)
checkuseB("Ham","Salad")=1
deleteitem(4):
deleteitem(5):
additem(7)
checkuseB("Ham","Roll")=1
deleteitem(6):
deleteitem(5):
additem(9)
checkuseB("Salad","Roll")=1
deleteitem(4):
deleteitem(6):
additem(8)
checkuseB("Ham and salad","Roll")=1
deleteitem(7):
deleteitem(6):
additem(10)
checkuseB("Roll and salad","Ham")=1
deleteitem(5):
deleteitem(8):
additem(10)
checkuseB("Roll and ham","Salad")=1
deleteitem(4):
deleteitem(9):
additem(10)
 working=0
playerspeak("That doesn't seem to work.")
 A,B,C:
wannagive
 Was passiert beim Geben
 i$,p$
% firstclick=0:working=0:mode=1:
 i$=use_a$:p$=use_b$
 p$="Cook"
 i$="Apron"
 working=1:
deleteitem(75):
start_filmchen(22,1):var(57)=1
 p$="Ferry man"
 i$="Silver coin"
 working=1:
deleteitem(13):exn=25:
wannatalk
 p$="Ferry man"
 i$="Jolly Roger"
take_and_additem_low(0):working=1:var(26)=1:
deleteitem(19):exn=27:
wannatalk
 p$="Father"
 i$="Green leaf"
 working=1:exn=1:
wannatalk
 p$="Merchant"
 i$="Sharp scissors"
 working=1:exn=52:
wannatalk
 p$="Breakdancers"
 i$="Fixed time machine"
 working=1:exn=11:
wannatalk
 p$="Slave trader"
 i$="Nearly a drink"
 working=1:exn=67:
wannatalk
 p$="Slave trader"
 i$="Sun of Cairo"
 working=1:exn=68:
wannatalk:
deleteitem(48)
 p$="Armandine"
 i$="Dirty telescope"
 var(12)=1
 working=1:exn=18:
wannatalk
 i$="Clean telescope"
 var(12)=1
 working=1:
deleteitem(17):exn=14:
wannatalk
 i$="Silver scarab"
 working=1:exn=75:
wannatalk
 p$="Libyan terrorists"
  terr=0
 i$="Salad"
 i$="Ham"
 i$="Roll"
 i$="Ham and salad"
 i$="Roll and salad"
 i$="Roll and ham"
 working=1:exn=8:
wannatalk
 i$="Hamburger"
 working=1:exn=9:
deleteitem(10):
wannatalk:
comp_takes_something
 i$="Chocolate"
playerspeak("Hm. I've never heard about chocolate-eating Libyan terrorists!")
 working=0
  R=RND(3)
  CASE R OF
   WHEN 1:a$="What's that thing good for?"
   WHEN 2:a$="I have no use for that."
   WHEN 3:a$="You'd better keep this."
  ENDCASE
  PROCspeak(a$,640,660,green)
playerspeak("Erm, I don't think this would be very helpful.")
 A,B,C:
checkuse(c_ort,ca$,cb$)
 Werden ca$ und cb$ gerade an Ort c_ort benutzt?
     ck=0
 cb$=""
 ca$=use_a$
 ca$=use_b$
 ck=1
 (ca$=use_a$
 cb$=use_b$)
 (ca$=use_b$
 cb$=use_a$)
 ck=1
 c_ort<>ort
 ck=0
 ck=1
 working=1
checkuseB(ca$,cb$)
 Werden ca$ und cb$ gerade benutzt? (Ort egal)
     ck=0
 cb$=""
 ca$=use_a$
 ca$=use_b$
 ck=1
 (ca$=use_a$
 cb$=use_b$)
 (ca$=use_b$
 cb$=use_a$)
 ck=1
 ck=1
 working=1
localsprites
 Ortsabhaengige Sprites auf dem Schirm
 Tueren
 doors_in_room>0
showdoors
 Items
 ort
 var(54)=1
 var(55)=0
,
schoose("inroom1"):
plot(8,524,254)
,
schoose("inroom2"):
plot(8,532,214)

 var(53)=0
schoose("anim3"):
plot(0,470,608)
 var(35)=0
schoose("inroom1"):
plot(0,582,468)
 var(36)=0
schoose("inroom2"):
plot(0,1034,660)
 var(51)=0
schoose("inroom3"):
plot(0,1110,486)
 var(105)=0
schoose("inroom4"):
plot(8,960,640)
 WHEN 4:
 IF var(11)=1 AND var(16)=0 THEN PROCschoose("inroom1"):PROCplot(0,318,122)
 IF var(30)=0 THEN PROCschoose("inroom1"):PROCplot(0,434,388)
 var(4)=1
schoose("inroom1"):
plot(0,272,152)
 var(5)=1
schoose("inroom2"):
plot(0,272,152)
 var(32)=0
schoose("inroom3"):
plot(0,308,248)
 var(32)=1
 var(30)=0
schoose("inroom4"):
plot(0,312,146)
 var(6)=0
schoose("inroom2"):
plot(0,760,394)
 var(7)=0
schoose("inroom1"):
plot(0,24,380)
 var(17)=0
schoose("inroom1"):
plot(0,200,234)
 var(20)=1
 var(21)=0
schoose("inroom2"):
plot(0,422,266)
 var(21)=1
schoose("inroom6"):
plot(0,430,265)
 IF var(22)=0 THEN PROCschoose("inroom3"):PROCplot(0,546,160)
 IF var(22)=1 THEN PROCschoose("inroom4"):PROCplot(0,516,160)
 var(22)=1
 var(23)=0
schoose("inroom3"):
plot(0,658,160)
 var(23)=1
schoose("inroom4"):
plot(0,658,160)
 var(50)=1
schoose("inroom7"):
plot(8,644,194)
 var(41)=0
schoose("inroom1"):
plot(0,972,436)
 var(40)=0
schoose("inroom2"):
plot(0,1088,402)
 var(47)=1
 var(48)=0
schoose("inroom1"):
plot(8,412,200)
 6
 var(81)=0
schoose("inroom2"):
plot(0,380,96)
!E
 var(82)=1
 var(83)=0
schoose("inroom3"):
plot(8,380,177)
"D
 var(84)=1
 var(85)=0
schoose("inroom1"):
plot(0,474,260)
#C
 var(85)=1
 var(97)=0
schoose("inroom4"):
plot(0,750,334)
%7
 var(61)=0
schoose("inroom1"):
plot(0,0,564)
'9
 var(62)=1
schoose("inroom1"):
plot(0,686,252)
(:
 var(114)=1
schoose("inroom2"):
plot(0,410,428)
*E
 var(65)=1
 var(66)=0
schoose("inroom5"):
plot(0,872,336)
+E
 var(65)=0
 var(66)=1
schoose("inroom6"):
plot(0,872,336)
,E
 var(65)=1
 var(66)=1
schoose("inroom7"):
plot(0,872,336)
-:
 var(64)=0
schoose("inroom3"):
plot(0,1010,544)
.F
 var(64)=1
 var(65)=0
schoose("inroom2"):
plot(0,1010,544)
/:
 var(65)=1
schoose("inroom1"):
plot(0,1010,544)
19
 var(113)=1
schoose("inroom1"):
plot(0,40,339)
39
 var(67)=0
schoose("inroom1"):
plot(0,266,416)
4:
 var(115)=0
schoose("inroom2"):
plot(0,782,486)
 var(66)=0
7:
 var(93)=1
schoose("inroom3"):
plot(0,818,384)
8:
 var(94)=1
schoose("inroom2"):
plot(8,678,430)
9:
 var(95)=1
schoose("inroom1"):
plot(8,514,395)
::
 var(96)=1
schoose("inroom4"):
plot(8,890,454)
;
=:
 var(139)=0
schoose("inroom1"):
plot(0,114,417)
>;
 var(140)=1
schoose("inroom2"):
plot(0,1014,228)
@H
 var(123)=1
 var(124)=0
schoose("inroom1"):
plot(0,1234,451)
A;
 var(124)=1
schoose("inroom2"):
plot(0,1230,358)
B;
 var(127)=1
schoose("inroom3"):
plot(0,1110,524)
D:
 var(110)=0
schoose("inroom1"):
plot(0,190,412)
F=
 var(54)=0
schoose("inroom1"):
plot(0,552,396)
H9
 var(68)=0
schoose("inroom1"):
plot(0,382,344)
JS
 var(69)=0
 (var(70)=1
 var(71)=0)
schoose("inroom2"):
plot(0,976,231)
KS
 var(69)=0
 (var(70)=0
 var(71)=1)
schoose("inroom3"):
plot(0,976,231)
LS
 var(69)=1
 (var(70)=1
 var(71)=0)
schoose("inroom4"):
plot(0,976,231)
M9
 var(69)=1
schoose("inroom1"):
plot(0,874,407)
N9
 var(70)=0
schoose("inroom5"):
plot(0,601,295)
O9
 var(71)=1
schoose("inroom6"):
plot(0,601,295)
Q:
 var(120)=0
schoose("inroom1"):
plot(0,683,355)
showdoors
 sd,v
 ort
 1: v=1
 2: v=1
 6: v=2
 7: v=2
 sd=1
 doors_in_room
 var(v)=0
schoose("d"+
(ort)+"_c")
schoose("d"+
(ort)+"_o")
plot(8,door_x%(sd),door_y%(sd))
wait(time)
 warten
 t=1
 time:
wannatalk
 Gespraech beginnen
 infotext$=""
 exn=1
 var(73)=0
   var(73)=1:cht=1
 var(72)=0
 cht=40
 var(72)=1
 cht=41
s'
 var(75)=1
 var(74)=0
 cht=42
t'
 var(75)=1
 var(74)=1
 cht=43
 exn=2
 var(9)=0
 var(3)=0
 cht=2
 var(3)=1
 cht=7
   cht=81
 exn=3
 var(12)=0
 cht=12
 var(12)=1
 var(13)=0
 cht=13
 var(12)=1
 var(13)=1
 cht=15
 exn=4
 cht=11:
 Alt. Zeile rausnehmen.
 exn=5
 cht=5
 exn=6
 cht=6 :block_comp_speaker=1:delay_comppers=1
 exn=7
  direction=2
 var(76)=0
   cht=44
 var(14)=0
 cht=16
 var(14)=1
%
 var(15)=0
 cht=17
 cht=16
 exn=8
 cht=8
 exn=9
 cht=9
 exn=10
 cht=10
 exn=14
 cht=14
 exn=18
 cht=18
 exn=19
 cht=19
 exn=20
 var(92)=0
 cht=20
 var(92)=1
 cht=61
 var(99)=1
 cht=69
+  block_comp_speaker=2:delay_comppers=1
 exn=21
 cht=21
 exn=24
 var(26)=0
 cht=24
 exn=24
 var(26)=1
 cht=28
 exn=25
 cht=25
 exn=26
 var(26)=0
 cht=26
 exn=26
 var(26)=1
 cht=29
 exn=27
 cht=27
 exn=31
 cht=31:block_comp_speaker=2:delay_comppers=1:direction=3
 exn=33
 cht=33:block_comp_speaker=1:delay_comppers=0
 exn=35
 var(31)=0
 IF FNcheckitem(65)=1 THEN cht=36
 IF FNcheckitem(65)=0 THEN cht=35
   cht=35
   cht=37
 exn=36
 cht=36
 exn=37
 cht=37
 exn=38
0  direction=3:
 group(acway)=1
 direction=4
 var(104)=0
 var(144)=0
    cht=38:var(144)=1
    cht=72
 var(104)=1
 cht=74
 exn=39
checkitem(75)=0
 cht=39
 cht=62
 exn=45
 cht=45:direction=3
 exn=46
 cht=46:direction=3
 exn=47
 var(78)=0
 cht=47
 cht=50
 exn=48
 cht=48
 exn=49
 cht=49
 exn=51
 cht=51
 exn=52
checkitem(81)=0
checkitem(78)=0
 var(86)=0
 cht=52
checkitem(81)=0
checkitem(78)=0
 var(86)=1
 cht=55
checkitem(81)=1
 cht=54:var(86)=1
checkitem(81)=0
checkitem(78)=1
 cht=53
 exn=56
 var(90)=0
 cht=56
 cht=57
 exn=58
 cht=58
 exn=59
 cht=59
 exn=60
 cht=60:var(92)=1
 exn=63
 cht=63
 exn=64
 cht=64
 exn=65
 var(98)=0
 cht=65:direction=3
 exn=65
 var(98)=1
 var(137)=0
 cht=66:direction=3
 exn=65
 var(98)=1
 var(137)=1
 cht=11:direction=3
 exn=11
 var(137)=1: cht=11
 exn=67
 cht=67 :block_comp_speaker=1:delay_comppers=1
 exn=68
 cht=68 :block_comp_speaker=1:delay_comppers=1
 exn=70
 cht=70
 exn=75
 cht=75
 exn=76
 cht=76
 exn=77
 cht=77
 exn=78
 cht=78
 exn=79
 cht=79
startchat(cht):speakmode=1:
dochat(1):spk=0:computertalk=1:playertalk=0
examine(exmode)
 ra,rb,nr,not,aa$
 Items an bestimmten Orten, Groesse, Erklaerung etc.
 exmode=1: Ansehen unter Mauskoordinaten
        2: Ansehen unter Spielerkoordinaten (Tuer etc)
        4: Nicht nochmal Maus abfragen
 ex$="":ext=0:exn=0
 exmode<>4
 MOUSE A,B,C
  ra=A:rb=B
 exmode=2
 A=px:B=py
 nr=1
 roomitems
 A>=item_x1(nr)
 A<=item_x2(nr)
 B>=item_y1(nr)
 B<=item_y2(nr)
 item_typ(nr)<>3
   aa$=item_name$(nr)
   not=0
 Nicht vorhandene Gegenstaende nicht beachten
 ort
,
 var(35)=1
 aa$="Bucket"
 not=1
,
 var(36)=1
 aa$="Chilli"
 not=1
0
 var(37)=0
 aa$="Rat poison"
 not=1
1
 var(51)=1
 aa$="Insecticide"
 not=1
*
 var(57)=1
 aa$="Cook"
 not=1
+
 var(59)=1
 aa$="Guard"
 not=1
7
 var(59)=0
 aa$="Unconscious guard"
 not=1
=
 var(105)=1
 aa$="Striped cat"
 not=1
0
 var(10)=1
 aa$="Ambassador"
 not=1
2
 var(11)=1
 aa$="Magic carpet"
 not=1
*
 var(11)=1
 aa$="Rope"
 not=1
F
 (var(16)=1
 var(11)=0)
 aa$="Rope inside basket"
 not=1
,
 var(100)=1
 aa$="Slave"
 not=1
3
 var(100)=1
 aa$="Slave trader"
 not=1
7
 var(100)=1
 aa$="Bloody whip"
 not=1
:
 (var(4)=0
 var(5)=1)
 aa$="Fishbone"
 not=1
 5
 var(4)=0
 aa$="Egyptian rubbish"
 not=1
!+
 var(32)=1
 aa$="Screw"
 not=1
"*
 var(32)=1
 aa$="Sign"
 not=1
#>
 (var(30)=1
 var(32)=0)
 aa$="Loose sign"
 not=1
$@
 (var(136)=0
 var(91)=1)
 aa$="Drunken man"
 not=1
&,
 var(6)=1
 aa$="Feather"
 not=1
'.
 var(7)=1
 aa$="Old brush"
 not=1
)0
 var(72)=1
 aa$="Green leaf"
 not=1
+G
 (var(18)=0
 var(19)=1)
 aa$="Small rusty tin key"
 not=1
,@
 (var(20)=0
 var(21)=1)
 aa$="Pirate stuff"
 not=1
./
 var(27)=0
 aa$="Ferry man"
 not=1

 var(91)=1
1_
 aa$="Traders"
 aa$="Chewing camel"
 aa$="Hairy camel"
 aa$="Camel hair"
 not=1



 var(91)=0
66
 var(28)=1
 aa$="Souvenir trader"
 not=1
73
 var(28)=0
 aa$="Souvenir man"
 not=1
8/
 var(28)=0
 aa$="Tourists"
 not=1
9/
 var(40)=1
 aa$="Oil lamp"
 not=1
:9
 var(41)=1
 aa$="Glass with beetles"
 not=1

<*
 aa$="Souvenir trader"
 not=1
='
 aa$="Souvenir man"
 not=1
>#
 aa$="Tourists"
 not=1
?/
 var(40)=1
 aa$="Oil lamp"
 not=1
@9
 var(41)=1
 aa$="Glass with beetles"
 not=1

C/
 var(49)=0
 aa$="Rope"
 not=1
D9
 (var(47)=0
 var(48)=1)
 aa$="Dates"
 not=1
ED
 (var(87)=0
 var(88)=1)
 aa$="Wet skin on rope"
 not=1
FD
 (var(88)=0
 var(89)=1)
 aa$="Dry skin on rope"
 not=1
G:
 (var(74)=0
 var(101)=1)
 aa$="Genie"
 not=1
I8
 (var(82)=0
 var(83)=1)
 aa$="Rope"
 not=1
J7
 (var(84)=0
 var(97)=1)
 aa$="Sun"
 not=1
L@
 var(60)=0
 aa$="Still quite strange statue"
 not=1
M4
 var(60)=1
 aa$="Strange statue"
 not=1
N5
 var(60)=1
 aa$="Wedge"
 not=1
P3
 var(64)=1
 aa$="Silver scarab"
 not=1
Q?
 (var(64)=0
 var(65)=1)
 aa$="Empty space"
 not=1
R=
 var(65)=0
 aa$="Golden scarab"
 not=1
T1
 var(67)=1
 aa$="Wagon wheel"
 not=1
U+
 var(115)=1
 aa$="Bone"
 not=1
W@
 (var(96)=0
 var(66)=1)
 aa$="Bone in slot"
 not=1
X|
 var(66)=1
 (aa$="Grey cog wheel"
 aa$="Small cog wheel"
 aa$="Very small cog wheel"
 aa$="Cylinder")
 not=1
YL
 (var(94)=0
 var(66)=1)
 aa$="Filled small empty space"
 not=1
ZL
 (var(95)=0
 var(66)=1)
 aa$="Filled large empty space"
 not=1
[7
 var(94)=1
 aa$="Small empty space"
 not=1
\>
 var(95)=1
 aa$="Large empty space"
 not=1
^8
 var(106)=1
 aa$="Deadly hell hound"
 not=1
_,
 var(109)=1
 aa$="Water"
 not=1
a/
 var(107)=1
 aa$="Dynamite"
 not=1
b,
 var(108)=1
 aa$="Guard"
 not=1
cB
 var(108)=1
 aa$="Dead Libyan terrorist"
 not=1
e3
 var(110)=1
 aa$="Rotten plant"
 not=1
gR
 (var(33)=0
 (var(33)=1
 var(34)=1))
 aa$="Spanner in water"
 not=1
i0
 var(54)=1
 aa$="Left guard"
 not=1
j1
 var(54)=1
 aa$="Right guard"
 not=1
lB
 var(70)=1
 aa$="Small statue on construction"
 not=1
m@
 var(69)=0
 aa$="Small statue on podest"
 not=1
n7
 var(116)=0
 aa$="Energy field"
 not=1
p,
 var(120)=1
 aa$="Genie"
 not=1
q1
 var(120)=1
 aa$="Magic lamp"
 not=1
s-
 var(129)=0
 aa$="Osiris"
 not=1
 not=0
vF    ext=item_typ(nr):exn=item_num(nr):info$=item_info$(nr):ex$=aa$
 ex$=""
 A=ra:B=rb
 DEF PROCwhatis
 REM mit der Maus ueber etwas drueberfahren
 PROCexamine(1)
 IF ex$<>"" THEN PROCtext(ex$,640,352,blue)
 ENDPROC
look(x1,y1,x2,y2,n$,type,tnum,ti$)
 type: 1=gegenstand, 2=person, 3=ausgang
 tnum: Nummer des Typs (z.B. Person Nr. 3)
     : oder, ob Gegenstand mitnehmbar. 1=ja, Rest=Sprueche, siehe Nimm.
 A>=x1
 A<=x2
 B>=y1
 B<=y2
(  ex$=n$:ext=type:exn=tnum:info$=ti$
buttons
 Abfrage der Buttons (Benutze,...)
 MOUSE A,B,C
 C=0
 A>=0
 A<723
 B>4
 B<88
 A<96
gehezu:merk_act=0
 A>96
 A<213
benutze:firstclick=0:merk_act=0
 A>213
 A<306
betrachte:merk_act=0
 A>306
 A<411
nimm:merk_act=0
 A>411
 A<525
redemit:merk_act=0
 A>630
 A<723
oeffne:merk_act=0
 A>525
 A<630
gib:merk_act=0
markers
 mark_anim-=1
 mark_anim=0
 mark_anim=5
 nn=1
 arr_ort(nn)>0
    A%=Cmem
    B%=fadeblock%
    C%=-1
 mark_anim

 5: C%=-2

 4: C%=1

 3: C%=2

 2: C%=3

 1: C%=4

!    fadeblock%!0=screen_base%
8
 screen=1
 fadeblock%!0=screen_base%+640*400*2
    fadeblock%!4=640
    fadeblock%!8=352
<    fadeblock%!12=
(wayx%(arr_way(nn),arr_pt(nn))/2)-20
=    fadeblock%!16= 350-
(wayy%(arr_way(nn),arr_pt(nn))/2)
"    fadeblock%!20=48+mark_anim
 fscr_put_32k_spr_mask
 nn=1
 arr_ort(nn)>0
    A%=Cmem
    B%=fadeblock%
 mark_anim

 5: C%=-3

 4: C%=-2

 3: C%=-1

 2: C%=1

 1: C%=2

R    fadeblock%!0=screen_base%:
 screen=1
 fadeblock%!0=screen_base%+640*400*2
    fadeblock%!4=640
    fadeblock%!8=352
8    fadeblock%!12=
(wayx%(arr_way(nn),arr_pt(nn))/2)
?    fadeblock%!16=800-
(wayy%(arr_way(nn),arr_pt(nn))+80/2)
"    fadeblock%!20=48+mark_anim
 fscr_put_32k_spr_mask
gehezu
 mode=1
benutze
 mode=2
betrachte
 mode=3
 mode=4
redemit
 mode=5
 mode=6
oeffne
 mode=7
checkmisc
 Offene/geschlossene Tueren und Computer-Chat checken, u.a.
 compchat=0
 group()=0
 Ereignis-Effekt setzen
 Wird ueberschrieben von PROCcheckdoors.
  ereig_auswirk=0
 Ereignis-Auswirkung fuer Demo:
 IF ort=4 THEN ereig_auswirk=2
 ort=31
 ereig_auswirk=2
 ort
 IF var(1)=0 THEN ereig_auswirk=1 ELSE ereig_auswirk=0
 altort=33
 var(38)=1
 var(38)=0
 var(38)=0
 ereig_auswirk=1
 ereig_auswirk=0
 var(54)=1
 var(55)=1
 var(55)=1
 obj_num=1
 '
 var(127)=1
 exn=78:
wannatalk
   group(1)=1:group(3)=1
$    ereig_auswirk=1:var(39)=0
   var(58)=0
playsample(4)
'*   var(53)=0:
 Aufzugtuer Thronsaal zu
)#
 var(10)=0
playsample(8)
 var(100)=0
,-
startcompchat(4):compchat_priority=1
    comp_anim_max(1)=3
    comp_anim_max(2)=3
  WHEN 6:
   IF var(2)=0 THEN ereig_auswirk=1 ELSE ereig_auswirk=0
  WHEN 7:
   IF var(2)=0 THEN ereig_auswirk=1 ELSE ereig_auswirk=0
playsample(14)
7$
 var(25)=1
 ereig_auswirk=1
playsample(14)
:A
checkitem(15)=0
 ereig_auswirk=1:
 Ohne Karte kein Weg
<M
 var(91)=0
startcompchat(30):compchat_priority=0:comp_anim_max()=4
>%
 var(112)=0
 ereig_auswirk=1
?Z
 var(28)=0
 var(91)=0
startcompchat(32):comp_anim_max(1)=4:compchat_priority=0
 var(28)=1
 var(91)=0
startcompchat(34):block_comp_speaker=0:comp_anim_max()=3:comp_anim_max(1)=4:compchat_priority=0
   ereig_auswirk=1
 var(87)=1
 var(88)=1
D
 var(49)=1
 cover_num=9
F0
 var(85)=0
 ereig_auswirk=1:cover_num=0
 var(81)=0
    acway=1
    acpoint(acway)=1
J&    px=wayx%(acway,acpoint(acway))
K&    py=wayy%(acway,acpoint(acway))
    direction=2
start_specialfilm(4)
   group(1)=1
   group(1)=1
S-
 var(114)=1
 var(113)=0
 var(114)=0
T+
 var(114)=0
 altort=1
 var(114)=1
U6
 group(acway)=1
 var(114)=0
 ereig_auswirk=1
V5
 group(acway)=0
 var(62)=0
 ereig_auswirk=1
X0
 var(66)=0
 var(65)=0
 ereig_auswirk=1
   group(1)=1:group(2)=1
Z:
 var(137)=1
 roomitems-=2:var(138)=1:noeffect=220
\%
 var(113)=0
 ereig_auswirk=1
   group(1)=1:group(2)=2
_%
 var(106)=0
 ereig_auswirk=1
playsample(21)
b%
 var(108)=0
 ereig_auswirk=1
playsample(21)
 var(143)=0
    bdancenum%=0
playsample(20)
    px=-300
    bdancenum%=0
startcompchat(80)
    block_comp_speaker=0
    comp_pointer=0
    comp_anim_max(1)=4
    comp_anim_max(2)=3
    obj_num=0
   ereig_auswirk=1
u,
startcompchat(3):compchat_priority=1
   comp_anim_max()=4
x&
playsample(14):
playsample(15)
z,
 var(116)=0
start_specialfilm(11)
   ereig_auswirk=1
}*
 var(74)=1
 var(119)=1:var(120)=1
~+
 var(119)=0
start_filmchen(54,1)
 var(119)=1
 var(120)=1
"   px=wayx%(1,1):py=wayy%(1,1)
start_specialfilm(14)
findarea(q)
 platz=0
 q>=2
 q<=3
 platz=1  :
 Palast
 q>=4
 q<=8
 platz=2  :
 Stadt
 q=9
 platz=3            :
 q>=10
 q<=16
 platz=4  :
 q>=17
 q<=25
 platz=5  :
 Labyrinth
 q>=26
 q<=29
 platz=6  :
 Unterwelt
 q>=30
 q<=32
 platz=2
 q=33
 platz=1
 q=34
 platz=5
 q=35
 platz=4
 q=1
 platz=2
=platz
neuersong
 altplatz=
findarea(altort)
 neuplatz=
findarea(ort)
 altplatz<>neuplatz
 neuplatz
cd_start(6):
 eventuell 7 :REM Palast
cd_start(3)                 :
 Stadt
cd_start(8)                 :
 Nil unter W.
cd_start(4)                 :
cd_start(5)                 :
 Labyrinth
cd_start(8)                 :
 Unterwelt
unload_modules
 nosound%
 um,uo
 mod_altort<>-1
 uo=mod_altort
 uo=altort
 um=0
 modlist%(uo,um)>0
"RMKill Ankh"+
(modlist%(uo,um))
load_modules
 nosound%
 lm,lo
 lo=ort
 lo=98
 lo=2
 lo=99
 lo=3
 lm=0
 modlist%(lo,lm)>0
"RMLoad "+dir$+"modules.Ankh"+
(modlist%(lo,lm))
neuerort
 Neuen Ort laden+initialisieren
 xtra$,nn,saveort,saveway,savept
 alle Filme zuruecksetzen. Ausser Ueberfahrt.
 filmchen<>4
 ort<>32
 filmchen=0
% specialfilm%=0:specialfilmnum%=0
 var(8)=0:rett_horizon=0
 game_loaded
 saveway=acway:savept=acpoint(acway)
 Evtl neuen Song starten
neuersong
 Evtl neue Modules laden/alte loeschen
 altort<>0
unload_modules
load_modules
 Unterhaltung zuruecksetzen
  second_person_speaking=0
  tob_zwinkern=0
  tob_zw_actual=0
  tob_zw_timeremain=0
  tob_special=0
  tob_sp_actual=0
  tob_sp_timeremain=0
  tob_actual=1
  tob_timeremain=2
 Compchat zuruecksetzen... \/ reicht das?
  comp_chatlen=0
  comp_speaktime=0
  comp_pointer=0
 lostindesert=0
checkitem(77)=0
 (ort=11
 ort=13)
 lostindesert=1
0 speaking$="":
 noch net rischdisch getestet
 saveort=ort
 ort=10
 var(25)=1
 var(27)=1
 ort>90
  saveort=ort
 ort
98: ort=2
99: ort=3
loadway
loadobjects
 ort=saveort
 altort=0
 game_loaded=0
  acway=1:acpoint(acway)=5
 ort=7
 acway=1:acpoint(acway)=37:
start_specialfilm(10)
$  px=wayx%(acway,acpoint(acway))
$  py=wayy%(acway,acpoint(acway))
  walkanim=1
 px>640
 direction=1:olddir=1
 direction=2:olddir=2
  arrived=1
  move=0
  moveto=0
 altort>0
 game_loaded=1
 ort
98: ort=2:altort=99:
start_filmchen(16,1):direction=4
    K
99: ort=3:altort=98:var(39)=0:
start_filmchen(20,1):ereig_auswirk=1
 game_loaded=1
   game_loaded=0
   px=loaded_x
   py=loaded_y
   acway=saveway
   acpoint(acway)=savept
   arrived=1
 px>640
 direction=2:olddir=2
 direction=1:olddir=1
   walkanim=1
   mode=1
   move=0
   moveto=0
 nn=1
 arr_ort(nn)=altort
J     px=wayx%(arr_way(nn),arr_pt(nn)):py=wayy%(arr_way(nn),arr_pt(nn))

 arr_walkway(nn)>0
      acway=arr_walkway(nn)
'      acpoint(acway)=arr_walkpt(nn)
J
 Horizontwerte richtig setzen, falls wir uns in einem 2-Ebenen-

 Raum befinden:

 ort


ort19

ort20

ort21

ort22

ort27a


find_out_path

wander_init

+/      direction=1:
 altort=99
 direction=4
      arrived=1

.
 ort=2
 var(127)=1
1+    acway=2:acpoint(acway)=10:arrived=1
24    px=wayx%(2,10):py=wayy%(2,10):direction=3:
 ort=26
 altort=25
58
 acway=3:acpoint(acway)=6:arrived=1:direction=4
6(
 px=wayx%(acway,acpoint(acway))
7(
 py=wayy%(acway,acpoint(acway))
    px=-500:py=0
9?
 PROCplayerspeak("Gosh! Now that was lightning fast!")
:"    teleding%=1:telescreen%=26
 ort=34
 var(118)=1
=7    acway=1:acpoint(acway)=15:arrived=1:direction=4
>&    px=wayx%(acway,acpoint(acway))
?&    py=wayy%(acway,acpoint(acway))
start_specialfilm(13)
checkmisc  :
 Sind hier offene/geschlossene Tueren? Cmp-Chat? Ort-Specials?
 plot_menu_bar%=2
J. xtra$="":
 ort=12
 var(29)=1
 xtra$="b"
 ort=18
 var(60)=1
 xtra$="b"
 ort=17
 var(85)=1
 xtra$="b"
 ort=24
 var(66)=1
 xtra$="g"
 ort=26
 var(109)=1
 xtra$="b"
backload(dir$+orte$+"ort"+
(ort)+xtra$)
R. xtra$="":
 ort=12
 var(91)=1
 xtra$="b"
sload(dir$+ortspr$+"ort"+
(ort)+xtra$)
 IF ort=31 PROCvoegel_init
 ort=10
 killkroko%>0
 300,0:
600,95:
sget("m")
 neuort=0:altort=ort
copy_to_other_screen(cx1,cy1,cx2,cy2)
 screen=1
^'
 cx1,cy1:
cx2,cy2:
sget("ctos")
 6,112,1
`(
schoose("ctos"):
plot(0,cx1,cy1)
sdelete("ctos")
 6,112,2
d'
 cx1,cy1:
cx2,cy2:
sget("ctos")
 6,112,2
f(
schoose("ctos"):
plot(0,cx1,cy1)
sdelete("ctos")
 6,112,1
specialmove(anzahl,ofs)
 guy_special%=1
 guy_specialofs%=ofs
 guy_specialmax%=anzahl
 guy_specialkind%=0
backpack(ctos)
 i,ia,ib,count
 speakmode
 764+4,8,474-4,80
 items>0
  count=0:i=offset
   count+=1
 item(i)>0
#
schoose("item"+
(item(i)))
 count

 1:ia=760+8:ib=8

 2:ia=840+8-2:ib=8

 3:ia=920+8-4:ib=8

 4:ia=1000+8-6:ib=8

 5:ia=1080+8-8:ib=8

 6:ia=1160+8-10:ib=8

cmemplot(8,ia,ib)
   i+=1
 count=6
 ctos
copy_to_other_screen(0,0,1279,95):
 inc menubar, siehe procdisplaychat!
actualitems
 i,ia,ib,count,mouseitem
 items=0
 count=0:i=offset
 MOUSE A,B,C
  count+=1
 item(i)>0
 count
 1:ia=760:ib=8
 2:ia=840:ib=8
 3:ia=920:ib=8
 4:ia=1000:ib=8
 5:ia=1080:ib=8
 6:ia=1160:ib=8
 A>=ia
 A<=ia+80
 B>=ib
 B<=ib+80
 mouseitem=i
  i+=1
 count=6
 mouseitem=0
 add$=""
 mode
 2:add$="Use "
 3:add$="Look at "
 6:add$="Give "
 7:add$="Open "
# ix$=itemname$(item(mouseitem))
 C=0
 mode<>2
 mode<>6
   infotext$=add$+ix$
 (mode=3
 C=4)
 C=1
 item(mouseitem)=15
 item(mouseitem)=14
showmaps
 item(mouseitem)=45
deleteitem(45):
additem(61):
additem(62):
additem(63)
playerspeak(iteminfo$(item(mouseitem))):mode=1:
 IF item(mouseitem)=24 THEN PROCdeleteitem(24):PROCadditem(21):PROCadditem(12):REM mystikk
 mode=2
 firstclick=0
   t$="Use "+ix$
   infotext$=t$
 C=4
D    use_a=0:usemode_a=2:use_a$=ix$:firstclick=1:
 A,B,C:
    first_is_screen=0
    t$="Use "+use_a$+" with "
 ix$<>use_a$
 t$+=ix$
 t$+="..."
   infotext$=t$
 C=4
 first_is_screen
.     merk_act=mode:A=sibmerk_x:B=sibmerk_y
'     use_b=0:usemode_b=2:use_b$=ix$
     second_is_backpack=1

gehhin

     first_is_screen=0
'     use_b=0:usemode_b=2:use_b$=ix$

wannause

 mode=6
 firstclick=0
   t$="Give "+ix$
   infotext$=t$
 C=4
0    use_a$=ix$:firstclick=1:
 A,B,C:
   t$="Give "+use_a$+" to "
 ix$>""
 ix$<> use_a$
 t$+=ix$
 t$+="..."
   infotext$=t$
 C=4
 firstclick=0:mode=1:
playerspeak("That won't work!"):
 mode=7
 C=4
 Open Item wird nur benutzt bei OilLamp.
 ix$="Lamp"
 var(42)=0
 var(42)=1:
additem(34):mode=1
 ix$="Chilli sauce"
 mode=1:
playerspeak("It smells really tasty!")
 ix$<>"Lamp"
 mode=1:
playerspeak("I can't open it.")
additem(num)
 items+=1
 item(items)=num
 num=18
 items+=1:item(items)=19:items+=1:item(items)=16
 items>5
 offset=items-5
 speakmode=0
 plot_menu_bar%=2:
 PROCbackpack(1)
take_and_additem(num)
 to_be_taken=num
 takeanim=1
take_and_additem_low(num)
 to_be_taken=num
 takeanim_low=1
process_to_be_taken
 player_has_taken
 to_be_taken>0
additem(to_be_taken)
  to_be_taken=0
  player_has_taken=0
deleteitem(num)
 it,ix
 it=1
 items
 item(it)=num
 it<items
 ix=it
 items-1
     item(ix)=item(ix+1)
  it=items
 item(items)=0
 items-=1
 speakmode=0
 plot_menu_bar%=2:
 PROCbackpack(1)
checkitem(num)
 chk=0
 it=1
 items
 item(it)=num
 chk=1
assign_chnum
 cperson=0
 chatnum=1
 chatnum=40
 chatnum=41
 chatnum=42
 chatnum=43
 cperson=1
 chatnum=2
 chatnum=7
 chatnum=8
 chatnum=9
 chatnum=81
 cperson=2
 chatnum=5
 chatnum=10
 cperson=3
 chatnum=6
 chatnum=67
 chatnum=68
 cperson=4
 chatnum=12
 chatnum=13
 chatnum=14
 chatnum=15
 chatnum=18
 chatnum=75
 cperson=6
 chatnum=16
 chatnum=17
 chatnum=21
 chatnum=44
 cperson=7
 chatnum=19
 cperson=19
 chatnum=20
 chatnum=61
 chatnum= 69
 cperson=20
 chatnum=24
 chatnum=25
 chatnum=28
 cperson=24
 chatnum=26
 chatnum=27
 chatnum=29
 cperson=26
 chatnum=31
 cperson=31
 chatnum=33
 cperson=33
 chatnum=35
 chatnum=36
 chatnum=37
 cperson=35
 chatnum=38
 chatnum=72
 chatnum=78
 chatnum=74
 cperson=38
 chatnum=39
 chatnum=62
 cperson=39
 chatnum=45
 cperson=45
 chatnum=46
 cperson=46
 chatnum=47
 chatnum=48
 chatnum=49
 chatnum=50
 chatnum=51
 cperson=47
 chatnum=52
 chatnum=53
 chatnum=54
 chatnum=55
 cperson=52
 chatnum=56
 chatnum=57
 cperson=56
 chatnum=58
 cperson=58
 chatnum=59
 cperson=59
 chatnum=60
 chatnum=70
 chatnum=76
 cperson=60
 chatnum=63
 chatnum=64
 cperson=63
 chatnum=65
 chatnum=66
 chatnum=11
 cperson=65
 chatnum=77
 cperson=77
 chatnum=79
 cperson=79
=cperson
initchat
 Personen:
  1=Papa
  2=Lyb. Terr.
  3=McDo
  4=SklavTreib
  5=Betrunkener ?Nope
  6=Armandine
  7=WeinMann
 19=Fakir
 20=Sklave
 24=Faehrmann
 chnum einer Person zuordnen
 chatperson=
assign_chnum
 chatperson=1
  tob_x(1)=390
  tob_y(1)=402
  tob_num(1)=7
S'  tobinfo_nr(1)=1:tobinfo_time(1)=1
T'  tobinfo_nr(2)=2:tobinfo_time(2)=1
U'  tobinfo_nr(3)=3:tobinfo_time(3)=1
V'  tobinfo_nr(4)=1:tobinfo_time(4)=1
W'  tobinfo_nr(5)=3:tobinfo_time(5)=1
X'  tobinfo_nr(6)=2:tobinfo_time(6)=1
Y'  tobinfo_nr(7)=3:tobinfo_time(7)=1
  tob_num(2)=0
  tob_x(3)=390
  tob_y(3)=402
  tob_num(3)=17
^*  tobinfo_nr( 8)= 4:tobinfo_time( 8)=1
_*  tobinfo_nr( 9)= 5:tobinfo_time( 9)=1
`*  tobinfo_nr(10)= 6:tobinfo_time(10)=1
a*  tobinfo_nr(11)= 7:tobinfo_time(11)=1
b*  tobinfo_nr(12)= 8:tobinfo_time(12)=1
c*  tobinfo_nr(13)= 9:tobinfo_time(13)=1
d*  tobinfo_nr(14)=10:tobinfo_time(14)=1
e*  tobinfo_nr(15)= 9:tobinfo_time(15)=1
f*  tobinfo_nr(16)= 8:tobinfo_time(16)=1
g*  tobinfo_nr(17)= 9:tobinfo_time(17)=1
h*  tobinfo_nr(18)=10:tobinfo_time(18)=1
i*  tobinfo_nr(19)= 9:tobinfo_time(19)=1
j*  tobinfo_nr(20)= 8:tobinfo_time(20)=1
k*  tobinfo_nr(21)= 7:tobinfo_time(21)=1
l*  tobinfo_nr(22)= 6:tobinfo_time(22)=1
m*  tobinfo_nr(23)= 5:tobinfo_time(23)=1
n*  tobinfo_nr(24)= 4:tobinfo_time(24)=1
 chatperson=2
  tob_x(1)=492
  tob_y(1)=474
  tob_num(1)=7
u'  tobinfo_nr(1)=2:tobinfo_time(1)=1
v'  tobinfo_nr(2)=3:tobinfo_time(2)=1
w'  tobinfo_nr(3)=4:tobinfo_time(3)=1
x'  tobinfo_nr(4)=3:tobinfo_time(4)=1
y'  tobinfo_nr(5)=4:tobinfo_time(5)=1
z'  tobinfo_nr(6)=2:tobinfo_time(6)=1
{'  tobinfo_nr(7)=3:tobinfo_time(7)=1
  tob_x(2)=130
  tob_y(2)=232
  tob_num(2)=1
'  tobinfo_nr(8)=4:tobinfo_time(8)=1
 chatperson=3
  tob_x(1)=310
  tob_y(1)=350
  tob_num(1)=7
'  tobinfo_nr(1)=4:tobinfo_time(1)=1
'  tobinfo_nr(2)=5:tobinfo_time(2)=1
'  tobinfo_nr(3)=6:tobinfo_time(3)=1
'  tobinfo_nr(4)=5:tobinfo_time(4)=1
'  tobinfo_nr(5)=6:tobinfo_time(5)=1
'  tobinfo_nr(6)=4:tobinfo_time(6)=1
'  tobinfo_nr(7)=5:tobinfo_time(7)=1
 chatperson=4
  tob_x(1)=692
  tob_y(1)=96
  tob_num(1)=7
'  tobinfo_nr(1)=7:tobinfo_time(1)=1
'  tobinfo_nr(2)=8:tobinfo_time(2)=1
'  tobinfo_nr(3)=9:tobinfo_time(3)=1
'  tobinfo_nr(4)=8:tobinfo_time(4)=1
'  tobinfo_nr(5)=9:tobinfo_time(5)=1
'  tobinfo_nr(6)=7:tobinfo_time(6)=1
'  tobinfo_nr(7)=8:tobinfo_time(7)=1
 chatperson=58
  tob_x(1)=0
  tob_y(1)=900
  tob_num(1)=1
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
 chatperson=6
  tob_x(1)=246
  tob_y(1)=450
 lowres%
 tob_y(1)=446
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=2
'  tobinfo_nr(2)=2:tobinfo_time(2)=2
'  tobinfo_nr(3)=3:tobinfo_time(3)=2
'  tobinfo_nr(4)=2:tobinfo_time(4)=2
'  tobinfo_nr(5)=3:tobinfo_time(5)=2
'  tobinfo_nr(6)=1:tobinfo_time(6)=2
'  tobinfo_nr(7)=2:tobinfo_time(7)=2
  tob_num(2)=0
  tob_x(3)=236
  tob_y(3)=388
  tob_num(3)=5
'  tobinfo_nr(8)=4:tobinfo_time(8)=1
'  tobinfo_nr(9)=5:tobinfo_time(9)=2
)  tobinfo_nr(10)=6:tobinfo_time(10)=8
)  tobinfo_nr(11)=5:tobinfo_time(11)=2
)  tobinfo_nr(12)=4:tobinfo_time(12)=1
 chatperson=7
  tob_x(1)=818
  tob_y(1)=396
  tob_num(1)=8
(  tobinfo_nr(1)=10:tobinfo_time(1)=1
(  tobinfo_nr(2)=11:tobinfo_time(2)=1
(  tobinfo_nr(3)=12:tobinfo_time(3)=1
(  tobinfo_nr(4)=13:tobinfo_time(4)=1
(  tobinfo_nr(5)=12:tobinfo_time(5)=1
(  tobinfo_nr(6)=10:tobinfo_time(6)=1
(  tobinfo_nr(7)=11:tobinfo_time(7)=1
(  tobinfo_nr(8)=13:tobinfo_time(8)=1
  tob_num(2)=0
  tob_x(3)=818
  tob_y(3)=396
  tob_num(3)=8
*  tobinfo_nr(9) =14:tobinfo_time(9) =2
*  tobinfo_nr(10)=15:tobinfo_time(10)=1
*  tobinfo_nr(11)=16:tobinfo_time(11)=1
*  tobinfo_nr(12)=14:tobinfo_time(12)=1
*  tobinfo_nr(13)=16:tobinfo_time(13)=1
*  tobinfo_nr(14)=15:tobinfo_time(14)=1
*  tobinfo_nr(15)=16:tobinfo_time(15)=1
+  tobinfo_nr(16)=14:tobinfo_time(16)=15
 chatperson=19
  tob_x(1)=72
  tob_y(1)=226
  tob_num(1)=10
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=2:tobinfo_time(4)=1
'  tobinfo_nr(5)=3:tobinfo_time(5)=1
'  tobinfo_nr(6)=1:tobinfo_time(6)=1
'  tobinfo_nr(7)=2:tobinfo_time(7)=2
'  tobinfo_nr(8)=1:tobinfo_time(8)=1
'  tobinfo_nr(9)=3:tobinfo_time(9)=1
)  tobinfo_nr(10)=2:tobinfo_time(10)=1
 chatperson=20
  tob_x(1)=540
  tob_y(1)=96
  tob_num(1)=7
(  tobinfo_nr(1)=17:tobinfo_time(1)=1
(  tobinfo_nr(2)=18:tobinfo_time(2)=1
(  tobinfo_nr(3)=19:tobinfo_time(3)=1
(  tobinfo_nr(4)=18:tobinfo_time(4)=1
(  tobinfo_nr(5)=19:tobinfo_time(5)=1
(  tobinfo_nr(6)=17:tobinfo_time(6)=1
(  tobinfo_nr(7)=18:tobinfo_time(7)=1
 chatperson=24
  tob_x(1)=847
  tob_y(1)=154
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=4:tobinfo_time(4)=1
'  tobinfo_nr(5)=2:tobinfo_time(5)=1
'  tobinfo_nr(6)=1:tobinfo_time(6)=1
'  tobinfo_nr(7)=3:tobinfo_time(7)=1
 chatperson=26
  tob_x(1)=118
  tob_y(1)=214
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=4:tobinfo_time(4)=1
'  tobinfo_nr(5)=2:tobinfo_time(5)=1
'  tobinfo_nr(6)=1:tobinfo_time(6)=1
'  tobinfo_nr(7)=3:tobinfo_time(7)=1
 chatperson=31
  tob_x(1)=598
  tob_y(1)=245
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=4:tobinfo_time(4)=1
'  tobinfo_nr(5)=2:tobinfo_time(5)=1
'  tobinfo_nr(6)=1:tobinfo_time(6)=1
'  tobinfo_nr(7)=3:tobinfo_time(7)=1
 chatperson=33
  tob_x(1)=520
  tob_y(1)=312
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=4:tobinfo_time(4)=1
 '  tobinfo_nr(5)=2:tobinfo_time(5)=1
!'  tobinfo_nr(6)=1:tobinfo_time(6)=1
"'  tobinfo_nr(7)=3:tobinfo_time(7)=1
 chatperson=35
  tob_x(1)=332
  tob_y(1)=460
  tob_num(1)=1
)'  tobinfo_nr(1)=1:tobinfo_time(1)=1
 chatperson=38
  tob_x(1)=672
  tob_y(1)=390
  tob_num(1)=8
0'  tobinfo_nr(1)=1:tobinfo_time(1)=1
1'  tobinfo_nr(2)=2:tobinfo_time(2)=1
2'  tobinfo_nr(3)=3:tobinfo_time(3)=1
3'  tobinfo_nr(4)=4:tobinfo_time(4)=1
4'  tobinfo_nr(5)=3:tobinfo_time(5)=1
5'  tobinfo_nr(6)=1:tobinfo_time(6)=1
6'  tobinfo_nr(7)=2:tobinfo_time(7)=1
7'  tobinfo_nr(8)=4:tobinfo_time(8)=1
  tob_num(2)=0
  tob_x(3)=672
  tob_y(3)=390
  tob_num(3)=7
<)  tobinfo_nr( 9)=5:tobinfo_time( 9)=1
=)  tobinfo_nr(10)=6:tobinfo_time(10)=1
>)  tobinfo_nr(11)=7:tobinfo_time(11)=1
?)  tobinfo_nr(12)=8:tobinfo_time(12)=1
@)  tobinfo_nr(13)=7:tobinfo_time(13)=1
A)  tobinfo_nr(14)=6:tobinfo_time(14)=1
B)  tobinfo_nr(15)=5:tobinfo_time(15)=1
 chatperson=39
  tob_x(1)=710
  tob_y(1)=400
  tob_num(1)=8
I'  tobinfo_nr(1)=1:tobinfo_time(1)=1
J'  tobinfo_nr(2)=2:tobinfo_time(2)=1
K'  tobinfo_nr(3)=3:tobinfo_time(3)=1
L'  tobinfo_nr(4)=4:tobinfo_time(4)=1
M'  tobinfo_nr(5)=3:tobinfo_time(5)=1
N'  tobinfo_nr(6)=1:tobinfo_time(6)=1
O'  tobinfo_nr(7)=2:tobinfo_time(7)=1
P'  tobinfo_nr(8)=4:tobinfo_time(8)=1
 chatperson=45
  tob_x(1)=426
  tob_y(1)=256
  tob_num(1)=8
V'  tobinfo_nr(1)=1:tobinfo_time(1)=1
W'  tobinfo_nr(2)=2:tobinfo_time(2)=1
X'  tobinfo_nr(3)=3:tobinfo_time(3)=1
Y'  tobinfo_nr(4)=4:tobinfo_time(4)=1
Z'  tobinfo_nr(5)=3:tobinfo_time(5)=1
['  tobinfo_nr(6)=1:tobinfo_time(6)=1
\'  tobinfo_nr(7)=2:tobinfo_time(7)=1
]'  tobinfo_nr(8)=4:tobinfo_time(8)=1
 chatperson=46
  tob_x(1)=748
  tob_y(1)=252
  tob_num(1)=8
c'  tobinfo_nr(1)=5:tobinfo_time(1)=1
d'  tobinfo_nr(2)=6:tobinfo_time(2)=1
e'  tobinfo_nr(3)=7:tobinfo_time(3)=1
f'  tobinfo_nr(4)=8:tobinfo_time(4)=1
g'  tobinfo_nr(5)=7:tobinfo_time(5)=1
h'  tobinfo_nr(6)=5:tobinfo_time(6)=1
i'  tobinfo_nr(7)=6:tobinfo_time(7)=1
j'  tobinfo_nr(8)=8:tobinfo_time(8)=1
 chatperson=47
  tob_x(1)=332
  tob_y(1)=900
  tob_num(1)=1
p'  tobinfo_nr(1)=1:tobinfo_time(1)=1
 chatperson=52
  tob_x(1)=1160
  tob_y(1)=252
  tob_num(1)=7
v'  tobinfo_nr(1)=7:tobinfo_time(1)=1
w'  tobinfo_nr(2)=8:tobinfo_time(2)=1
x'  tobinfo_nr(3)=9:tobinfo_time(3)=1
y'  tobinfo_nr(4)=7:tobinfo_time(4)=1
z'  tobinfo_nr(5)=9:tobinfo_time(5)=1
{'  tobinfo_nr(6)=8:tobinfo_time(6)=1
|'  tobinfo_nr(7)=9:tobinfo_time(7)=1
 chatperson=56
  tob_x(1)=0
  tob_y(1)=241
  tob_num(1)=7
'  tobinfo_nr(1)=5:tobinfo_time(1)=1
'  tobinfo_nr(2)=6:tobinfo_time(2)=1
'  tobinfo_nr(3)=7:tobinfo_time(3)=1
'  tobinfo_nr(4)=5:tobinfo_time(4)=1
'  tobinfo_nr(5)=7:tobinfo_time(5)=1
'  tobinfo_nr(6)=5:tobinfo_time(6)=1
'  tobinfo_nr(7)=6:tobinfo_time(7)=1
 chatperson=59
  tob_x(1)=410
  tob_y(1)=258
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=1:tobinfo_time(4)=1
'  tobinfo_nr(5)=3:tobinfo_time(5)=1
'  tobinfo_nr(6)=1:tobinfo_time(6)=1
'  tobinfo_nr(7)=2:tobinfo_time(7)=1
 chatperson=60
  tob_x(1)=0
  tob_y(1)=900
  tob_num(1)=1
'  tobinfo_nr(1)=6:tobinfo_time(1)=1
 chatperson=63
  tob_x(1)=0
  tob_y(1)=150
  tob_num(1)=7
'  tobinfo_nr(1)=5:tobinfo_time(1)=1
'  tobinfo_nr(2)=6:tobinfo_time(2)=1
'  tobinfo_nr(3)=7:tobinfo_time(3)=1
'  tobinfo_nr(4)=5:tobinfo_time(4)=1
'  tobinfo_nr(5)=7:tobinfo_time(5)=1
'  tobinfo_nr(6)=5:tobinfo_time(6)=1
'  tobinfo_nr(7)=6:tobinfo_time(7)=1
 chatperson=65
  tob_x(1)=0
  tob_y(1)=900
  tob_num(1)=1
(  tobinfo_nr(1)=1:tobinfo_time(1)=10
 chatperson=77
  tob_x(1)=0
  tob_y(1)=302
  tob_num(1)=7
'  tobinfo_nr(1)=1:tobinfo_time(1)=1
'  tobinfo_nr(2)=2:tobinfo_time(2)=1
'  tobinfo_nr(3)=3:tobinfo_time(3)=1
'  tobinfo_nr(4)=1:tobinfo_time(4)=1
'  tobinfo_nr(5)=3:tobinfo_time(5)=1
'  tobinfo_nr(6)=1:tobinfo_time(6)=1
'  tobinfo_nr(7)=2:tobinfo_time(7)=1
 chatperson=79
  tob_x(1)=806
  tob_y(1)=389
  tob_num(1)=7
'  tobinfo_nr(1)=9:tobinfo_time(1)=1
(  tobinfo_nr(2)=10:tobinfo_time(2)=1
(  tobinfo_nr(3)=11:tobinfo_time(3)=1
'  tobinfo_nr(4)=9:tobinfo_time(4)=1
(  tobinfo_nr(5)=11:tobinfo_time(5)=1
'  tobinfo_nr(6)=9:tobinfo_time(6)=1
(  tobinfo_nr(7)=10:tobinfo_time(7)=1
startchat(chnum)
 A,fin,b,a$,pos,num$
 chatnum=chnum
initchat
 mode=0
 flagset=0
) chat$()="":compare$()="":comparing=0
(dir$+"text."+
(chnum))
 pos=0
 b<>10
 num$+=
 b=10
 ccol=
(num$)
 ccol
 1: chatcol=red
 2: chatcol=lblue
 3: chatcol=lbeige
 4: chatcol=lbrown
 5: chatcol=green
 6: chatcol=bgreen
 7: chatcol=lgrey
 8: chatcol=yellow
 9: chatcol=orange
10: chatcol=white
11: chatcol=blue
 num$=""
 b<>10
 num$+=
 b=10
 chatpos_x=
(num$)
 num$=""
 b<>10
 num$+=
 b=10
 chatpos_y=
(num$)
  a$="":pos+=1
   b=
 b<>10
 a$+=
 b=10
  chat$(pos)=a$
 chatlen=pos
resetcompchat
 compchat=0
 comp_chat$()=""
 compchat_mark=0
 comp_chatlen=0
 comp_speaktime=0
 comp_pointer=0
 comp_chatpos_x()=0
 comp_chatpos_y()=0
 comp_animpos_x()=0
 comp_animpos_y()=0
 comp_anim_num()=1
 comp_anim_time()=0
 comp_anim_max()=0
startcompchat(chnum)
 A,fin,b,a$,pos,num$
 say$=""
 compchat=1
 comp_chat$()=""
 comp_anim_num()=1
(dir$+"ctext."+
(chnum))
 comp_chatnum=chnum
 pos=0
 b<>10
 num$+=
 b=10
 howmany=
(num$)
 honey=1
 howmany
  num$=""
'   b=
 250:
 b<>10
 num$+=
 b=10
 #  comp_chatpos_x(honey)=
(num$)
  num$=""
#'   b=
 250:
 b<>10
 num$+=
 b=10
%#  comp_chatpos_y(honey)=
(num$)
  num$=""
('   b=
 250:
 b<>10
 num$+=
 b=10
*#  comp_animpos_x(honey)=
(num$)
  num$=""
-'   b=
 250:
 b<>10
 num$+=
 b=10
/#  comp_animpos_y(honey)=
(num$)
 honey
  a$="":pos+=1
   b=
 b<>10
 a$+=
 b=10
  comp_chat$(pos)=a$
 comp_chatlen=pos
<! comp_pointer=
(comp_chatlen)
dochat(ps)
 dok,foundline,right,fl
H- answers=1:c$()="":t$()="":p$()="":lk()=0
findout(ps,"c")
 c$()=t$()
 lk=link:saylines=sl
 lk>0
findout(lk,"p")
 right
   lk(1)=link
   p$(1)=t$(1)
   answers-=1
   right=1
W%
chat$(foundline+1),1)="p"
    lk+=1:answers+=1
findout(lk,"p")
 right
     p$(answers)=t$(1)
     lk(answers)=link
]
     answers-=1
_
    dok=1
  answers=0
displaychat
 computertalk
 Rede-Animation zeigen:
 computertalk=1
    flega%=1
r[
 Rede-Anim zeigen, ausser bei 'Vati&SpecialMove' und ausser 2te Person redet grad:
s;
              und  ausser bei 'PharaohSpecialMove'
 (tob_special=0
 ort<>2)
 (tob_special=0
 ort<>7)
 second_person_speaking=0
schoose("talk"+
(tobinfo_nr(tob_actual))):
plot(8,tob_x(1),tob_y(1))
uO
 second_person_speaking
schoose("cchat2-"+
(5))):
plot(8,718,466)
 tob_special
xL
schoose("talk"+
(tobinfo_nr(tob_num(1)+tob_num(2)+tob_sp_actual)))
y#
plot(8,tob_x(3),tob_y(3))
z5     tob_sp_timeremain-=1:
 tob_sp_timeremain=0
      tob_sp_actual+=1
|&
 tob_sp_actual>tob_num(3)
       tob_special=0

N       tob_sp_timeremain=tobinfo_time(tob_num(1)+tob_num(2)+tob_sp_actual)



 IF tob_zwinkern=0 AND RND(30)=1 AND chatnum<>19 THEN
  tob_zwinkern=1
  tob_zw_actual=1
  tob_zw_timeremain=tobinfo_time(tob_num(1)+tob_zw_actual)
 ENDIF
 tob_zwinkern
A
schoose("talk"+
(tobinfo_nr(tob_num(1)+tob_zw_actual)))
#
plot(8,tob_x(2),tob_y(2))
5     tob_zw_timeremain-=1:
 tob_zw_timeremain=0
      tob_zw_actual+=1
&
 tob_zw_actual>tob_num(2)
       tob_zwinkern=0

C       tob_zw_timeremain=tobinfo_time(tob_num(1)+tob_zw_actual)



/     tob_timeremain-=1:
 tob_timeremain=0
=     tob_actual+=1:
 tob_actual>tob_num(1)
 tob_actual=1
0     tob_timeremain=tobinfo_time(tob_actual)

 IF computertalk=2 THEN PROCschoose("talk5"):PROCplot(0,300,600):REM weg damit
 speaking$=""
F    computertalk=1:
 speaking$ ist erst leer, wenn Spieler fertig.
3
 Dann kann Computer labern.
 kleine unsaubere Reparatur fuer Sklaventreiber!
 IF ort=5 THEN PROCschoose("cchat1-1"):PROCplot(8,500,96)
 IF ort=5 THEN PROCschoose("cchat2-1"):PROCplot(8,850,96)
    MOUSE A,B,C:IF C=4 AND release=1 THEN speaktime=0:release=0
    IF C=0 THEN release=1
    klappt noch nicht so richtig!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 spk<saylines
     spk+=1
C
c$(spk),"#")
 flagset=1:c$(spk)=
c$(spk),
(c$(spk))-1)
]
c$(spk),"
 cat_is_silent=1:wineman_asks_cat=1:c$(spk)=
c$(spk),
(c$(spk))-2)
^
c$(spk),"@%")
 cat_is_curious=1:wineman_asks_cat=1:c$(spk)=
c$(spk),
(c$(spk))-2)
m
c$(spk),"%")
 wineman_asks_cat=1:cat_is_silent=0:cat_is_curious=0:c$(spk)=
c$(spk),
(c$(spk))-1)
O
c$(spk),"^")
comp_gives_something:c$(spk)=
c$(spk),
(c$(spk))-1)

c$(spk),"$")
(      c$(spk)=
c$(spk),
(c$(spk))-1)
      tob_special=1
      tob_sp_actual=1
M      tob_sp_timeremain=tobinfo_time(tob_num(1)+tob_num(2)+tob_sp_actual)

     dc_x=chatpos_x
     dc_y=chatpos_y
     dc_c=chatcol

c$(spk),"{")
*      c$(spk)=
c$(spk),2,
(c$(spk))-2)
      dc_c=lbeige
      dc_x=742
      dc_y=589
"      second_person_speaking=1

"      second_person_speaking=0

'
speak(c$(spk),dc_x,dc_y,dc_c)

$     playertalk=1:computertalk=0
(
 answers=1
 g=1:
sumpinchosen

 answers=0
 playertalk=1
 chatnum=62
start_specialfilm(3)
finish_talk
 playertalk
 lowres%=0
 0,0,1279,95
 0,0,1279,91
 RECTANGLE FILL 0,0,1279,95
 answers>0
textla(p$(1),0,60,dblue)
 answers>1
textla(p$(2),0,20,dblue)
 answers>2
textla(p$(3),640,60,dblue)
 answers>3
textla(p$(4),640,20,dblue)
 B<96
 A<640
8
 B>48
textla(p$(1),0,60,blue)
6
 B<48
 answers>1
textla(p$(2),0,20,blue)

8
 B>48
 answers>2
textla(p$(3),640,60,blue)
8
 B<48
 answers>3
textla(p$(4),640,20,blue)

 C>0
 B<96
 answers>0
 A<640

 B>48
      g=1:
sumpinchosen

)
 answers>1
 g=2:
sumpinchosen



 B>48
)
 answers>2
 g=3:
sumpinchosen

)
 answers>3
 g=4:
sumpinchosen


    A=0:B=0:C=0
 var(11)=0
 ort=4
 Tanzende Schlange nochmal draufmalen
schoose("obj"+
(odata_sprnum%(obj_first%(2)+obj_frame_akt%(2))))
plot(8,odata_x%(obj_first%(2)+obj_frame_akt%(2)),odata_y%(obj_first%(2)+obj_frame_akt%(2)))
 aber net so doll geloest
finish_talk
 chatnum=35
 chatnum=36
 chatnum=37
 opendoor%=3
 speakmode=0:chatnum=0
 PROCschoose("menubar"):PROCcmemplot(0,0,0):PROCbackpack(1)
 plot_menu_bar%=2
' playertalk=0:computertalk=0:mode=1
 block_comp_speaker=0
 tob_zwinkern=0
 tob_zw_actual=0
 tob_zw_timeremain=0
 tob_special=0
 tob_sp_actual=0
 tob_sp_timeremain=0
 tob_actual=1
 tob_timeremain=2
displaycomppersons
 NEU: (noch nicht ausgieb. mit Skl+Treib getestet):
 wenn Compchat nicht bearbeitet wird (z.B. spricht der Spieler gerade),
 muessen trotzdem die Figuren gemalt werden.
 n=1
 howmany
 block_comp_speaker<>n
 flega%=0
 (block_comp_speaker<>n
 computertalk<>1)
 delay_comppers=1
schoose("cchat"+
(n)+"-1"):
plot(8,comp_animpos_x(n),comp_animpos_y(n))
 flega%=1
 flega%=0
 delay_comppers=1
 delay_comppers=0
 computertalk<>1
 delay_comppers=1
displaycompchat
 v,ccol,cc$
 Rede-Animation zeigen:
 comp_speaktime+speakspeed*20*(
(comp_chat$(comp_pointer))/20)+1)<
  comp_speaktime=
  comp_pointer+=1
 comp_pointer>comp_chatlen
 comp_pointer=1
 & v=
comp_chat$(comp_pointer),1))
 1:ccol=red
 2:ccol=lbeige
 3:ccol=yellow
schoose("cchat"+
(v)+"-"+
(comp_anim_num(v))):
plot(8,comp_animpos_x(v),comp_animpos_y(v))
 comp_anim_time(v)-=1
 comp_anim_time(v)<=0
*)  comp_anim_time(v)=1:
 das war mal 3
  comp_anim_num(v)+=1
 IF comp_anim_num(v)>comp_anim_max(v) THEN comp_anim_num(v)=1
 comp_anim_num(v)>comp_anim_max(v)
 comp_anim_num(v)=
(comp_anim_max(v))
 NEU: (noch nicht ausgieb. mit Skl+Treib getestet):
 n=1
 howmany
 n<>v
schoose("cchat"+
(n)+"-1"):
plot(8,comp_animpos_x(n),comp_animpos_y(n))
5A cc$=
comp_chat$(comp_pointer),
(comp_chat$(comp_pointer))-2)
cc$,"%")
7(  cc$=
(cc$)-1):compchat_mark=1
8W  comp_chat$(comp_pointer)=
comp_chat$(comp_pointer),
(comp_chat$(comp_pointer))-1)
:0 comp_will_speak=1:cws$=cc$:cwsp=v:cwsc=ccol
 PROCcompdospeak(cc$,comp_chatpos_x(v),comp_chatpos_y(v),ccol)
compdospeak(sp$,sx,sy,colname)
 comp_will_speak=0
 a$=""
 ory=sy
C     ok=0
(sp$)>27
   a$=""
H%    b$=
sp$,1):sp$=
(sp$)-1)
    a$+=b$
J-
(a$)>22
 (b$=" "
 b$="-"
 b$="")
K!
 b$=" "
(a$)-1)
text(a$,sx,ory,colname)
   ory-=36
   ok=1
P
text(sp$,sx,ory,colname)
playsample(snum)
 nosound%
 freq,volume
 VDU7
 1: Open Door
 2: Close Door
 3: Rubbish-bin aufmachen
 freq=10000:volume=-15
 hintergrund=0
 snum
 4:volume=-12:hintergrund=1
22:freq=12000
 8:volume=-6:hintergrund=1
11:freq=6000
13:freq=9200
14:volume=-10:hintergrund=1
n'
 ort=32
 freq=4000
 freq=7000
p'
 ort=9
 freq=13000
 freq=8000
 3:freq=800
   hintergrund=1
t'
 ort=26
 volume=-6
 volume=-1
 17:freq=12000
   freq=4000
 ort=6
 volume=-10
 channel=1
 hintergrund
 channel=1
 hint=0
 Checken, ob ein Backgroundsample bei diesem Ort ist
 ort
 3:hint=1
 4:hint=1
 8:hint=1
 9:hint=1
10:hint=1
26:hint=1
32:hint=1
 hint=1
 hintergrund=0
 channel=2
 hintergrund=0
 hint=0
 channel=currentvoice%:currentvoice%=3-currentvoice%
"Channelvoice "+
(channel)+" Ankh"+
(snum)
 channel,volume,freq,1000
sumpinchosen
+ comparing+=1:compare$(comparing)=p$(g)
 ock=1:dc=lk(g)
playerspeak(p$(g))
  playertalk=0:computertalk=2
dochat(dc)
 spk=0
 lowres%=0
 0,0,1279,95
 0,0,1279,91
copy_to_other_screen(0,0,1279,96)
playerspeak(spk$)
 spkx,spky,sa,sb,sentf%
 sa%=horizon-noeffect
 sb%=horizon-py
 sentf%=100/sa%*sb%
 spkx=px
 px<250
 spkx=250
 px>950
 spkx=950
 spky=py+3*sentf%+80
 py<=noeffect
 spky=py+400
 spky>750
 spky=750
speak(spk$,spkx,spky,yellow)
 justspeaking=1
playerspeaksoon(spk$)
 spkx,spky
 spkx=px
 px<300
 spkx=300
 px>900
 spkx=900
 spky=py+300
 spky>700
 spky=700
speaksoon(spk$,spkx,spky,yellow)
 justspeaking=1
findout(pos,type$)
 p,slen,c$,ok,a,nomore,nt
 t$()="":sl=1:foundline=0
 pos>9
 slen=3
 slen=2
  p+=1
 p>180
 *error Error: Pos not found!!?!
chat$(p),slen)=type$+
(pos)
& t$(1)=
chat$(p),
(chat$(p))-slen)
 ok=0:a=0
t$(1),1)=" "
 t$(1)=
t$(1),
(t$(1))-1)
t$(1),1)<>" "
H t$(1)=
t$(1),
(t$(1))-1)                :
 hier wird das * entfernt
 link=
t$(1),1))
 slen=1
t$(1),2,1)>="0"
t$(1),2,1)<="9"
 link=link*10+
t$(1),2,1)):slen=2
  t$(1)=
t$(1),
(t$(1))-slen)
t$(1),1)=" "
 t$(1)=
t$(1),
(t$(1))-1)
t$(1),1)<>" "
 right=1
 comparing>0
 type$="p"
 c=1
 comparing
 compare$(c)=t$(1)
 right=0
 checken, ob mehr Textlines dazugehoeren
 nomore=0:nt=p:sl=1
  nt+=1
chat$(nt),"*")=0
 chat$(nt+1)<>""
   sl+=1
   p+=1
   t$(sl)=chat$(nt)
1   comparing+=1:compare$(comparing)=chat$(nt)
6
t$(sl),1)=" "
 t$(sl)=
t$(sl),
(t$(sl))-1)
t$(sl),1)<>" "
   nomore=1
 nomore
 foundline=p
initlib(memory%)
 memory% > 0
 Smem memory%
    !Smem   = memory%
    Smem!4  = 0
    Smem!8  = 0
    Smem!12 = 16
 memory% <= 0
 Smem = 0
  spname$ = ""
)  var1 = 0:var2 = 0:var3 = 0:var4 = 0
initcmem(memory%)
 memory% > 0
 Cmem memory%
    !Cmem   = memory%
    Cmem!4  = 0
    Cmem!8  = 0
    Cmem!12 = 16
cmemnew
 memory% <= 0
 Smem = 0
  spname$ = ""
)  var1 = 0:var2 = 0:var3 = 0:var4 = 0
initblock
  memory%=640*401*2
 lowres%
 memory%=640*257
 memory% > 0
 Backmem memory%
    !Backmem   = memory%
    Backmem!4  = 0
    Backmem!8  = 0
    Backmem!12 = 16
backnew
 memory% <= 0
 Backmem = 0
  spname$ = ""
))  var1 = 0:var2 = 0:var3 = 0:var4 = 0
zoom(x%,y%,xx%,xy%,yy%,yx%,name$)
 factor%
 factor% 20
/= factor%!0=xx%:factor%!4=xy%:factor%!8=yy%:factor%!12=yx%
 "OS_SpriteOp",256+52,Cmem,name$,x%,y%,8,factor%,-1
zoom_smem(x%,y%,xx%,xy%,yy%,yx%,name$)
 factor%
 factor% 20
6= factor%!0=xx%:factor%!4=xy%:factor%!8=yy%:factor%!12=yx%
 "OS_SpriteOp",256+52,Smem,name$,x%,y%,8,factor%,-1
schoose(choice$)
 spname$=choice$
plot(kind,plotx,ploty)
 plotx,ploty
 "OS_SpriteOp",256+28,Smem,spname$,,,kind
 r0,r1,r2,r3,r4,r5,r6
cmemplot(kind,plotx,ploty)
 plotx,ploty
 "OS_SpriteOp",256+28,Cmem,spname$,,,kind
 r0,r1,r2,r3,r4,r5,r6
sdelete(delete$)
 "OS_SpriteOp",256+25,Smem,delete$,0,0
 r0,r1,r2,r3,r4,r5,r6
sget(sget$)
 "OS_SpriteOp",256+14,Smem,sget$
 r0,r1,r2,r3,r4,r5,r6
smerge(smerge$)
 "OS_SpriteOp",256+11,Smem,smerge$,0,0
 r0,r1,r2,r3,r4,r5,r6
gmerge(gmerge$)
 name$="Graphic."+gmerge$
 "OS_SpriteOp",256+11,Smem,name$,0,0
 r0,r1,r2,r3,r4,r5,r6
sload(sload$)
 SYS "OS_SpriteOp",256+10,Smem,sload$,0,0 TO r0,r1,r2,r3,r4,r5,r6
 "OS_File",16,sload$,Smem+4,0
 Smem?4=Smem?4
 Smem?5=Smem?5
 Smem?6=Smem?6
 Smem?7=Smem?7
 Smem?8=Smem?8
 Smem?9=Smem?9
backload(sload$)
  SYS "OS_SpriteOp",256+10,Backmem,sload$,0,0 TO r0,r1,r2,r3,r4,r5,r6
 "OS_File",16,sload$,Backmem+4,0
 Backmem?4=Backmem?4
 Backmem?5=Backmem?5
 Backmem?6=Backmem?6
 Backmem?7=Backmem?7
 Backmem?8=Backmem?8
 Backmem?9=Backmem?9
backnew
 "OS_SpriteOp",256+9,Backmem
cmemload(load$)
  SYS "OS_SpriteOp",256+10,Cmem,load$,0,0 TO r0,r1,r2,r3,r4,r5,r6
 "OS_File",16,load$,Cmem+4,0
 Cmem?4=Cmem?4
 Cmem?5=Cmem?5
 Cmem?6=Cmem?6
 Cmem?7=Cmem?7
 Cmem?8=Cmem?8
 Cmem?9=Cmem?9
cmemnew
 "OS_SpriteOp",256+9,Cmem
sflipx(sflipx$)
 "OS_SpriteOp",256+33,Smem,sflipx$,0,0
 r0,r1,r2,r3,r4,r5,r6
sflipy(sflipy$)
 "OS_SpriteOp",256+47,Smem,sflipy$,0,0
 r0,r1,r2,r3,r4,r5,r6
srename(oldname$,newname$)
 "OS_SpriteOp",256+26,Smem,oldname$,newname$
scopy(oldname$,newname$)
 "OS_SpriteOp",256+27,Smem,oldname$,newname$
ssave(name$)
 "OS_SpriteOp",256+12,Smem,name$,0,0
 r0,r1,r2,r3,r4,r5,r6
 "OS_SpriteOp",256+9,Smem
text(txt$,x%,y%,font_col)
 lowres%
 y%+=102
 font_back_col=0
 262282,xfnt%
 blend_feature=0
 "Font_SetPalette",,0,1,6,&44444400,0
 "ColourTrans_SetFontColours",xfnt%,font_back_col,0,1
 262281,,1280
 ,box%
 262277,,txt$,box%,,32,
(txt$)
 ,,box%
 262280,,box%
 ,box%
 262278,,txt$,(%000000010000
 (blend_feature*2048)),x%-(box%/2),y%
 262282,sfnt%
 blend_feature=0
 "Font_SetPalette",,0,1,6,font_back_col,font_col
 "ColourTrans_SetFontColours",sfnt%,font_back_col,font_col,1
 262281,,1280
 ,box%
 262277,,txt$,box%,,32,
(txt$)
 ,,box%
 262280,,box%
 ,box%
 262278,,txt$,(%000000010000
 (blend_feature*2048)),x%-(box%/2),y%
textla(txt$,x%,y%,font_col)
 lowres%
 y%+=102
 font_back_col=0
 262282,mfnt%
 blend_feature=0
 "Font_SetPalette",,0,1,6,font_back_col,font_col
 "ColourTrans_SetFontColours",mfnt%,font_back_col,font_col,1
 262278,,txt$,(%000000010000
 (blend_feature*2048)),x%,y%
<speaktime+speakmax
dospeak(speaking$,speakcol)
!  speaking$="":justspeaking=0
 soonspeak$<>""
speak(soonspeak$,soonx,soonheight,sooncol)
   soonspeak$=""
speak(speak$,xpos,hgt,colname)
 speaktime=
 speaking$=speak$
 speakcol=colname
 speakheight=hgt
 speakx=xpos
speaksoon(speak$,xpos,hgt,colname)
 soonspeak$=speak$
 sooncol=colname
 soonheight=hgt
 soonx=xpos
dospeak(speak$,colname)
 a$=""
 ory=speakheight
     ok=0
 speakmax=20*speakspeed
(speak$)>27
   a$=""
1    b$=
speak$,1):speak$=
speak$,
(speak$)-1)
    a$+=b$
(a$)>22
 (b$=" "
 b$="-"
 b$="")
 b$=" "
(a$)-1)
text(a$,speakx,ory,colname)
   speakmax+=20*speakspeed
   ory-=36
   ok=1
text(speak$,speakx,ory,colname)
nwait(time)
 t=1
 time
 A,B,C
(0)<>""
 C>0
 nw=1:t=time
loadsave(cho)
 kind,fin,xtra$
6,21,0
 kind: 1=Load, 2=Save 3=Quit
sload(dir$+sprites$+"save")
schoose("loadsavepic")
plot(0,0,0)
 n=0
textla(savename$(n),450+10,740-n*40+10,white)
swapscreen
 screen=1
6,112,1
6,112,2
 A,B,C:
 cho=1
 kind=1
 A,B,C
 A>224
 B>704
 A<440
 B<770
 kind=2
 A>208
 B>582
 A<438
 B<652
 kind=1
 A>238
 B>344
 A<442
 B<408
 kind=3
 A>242
 B>26
 A<446
 B<86
 kind=4
 kind
 A,B,C:
 kind=2
schoose("save"):
plot(0,206,694)
 kind=1
schoose("load"):
plot(0,206,572)
 kind=3
schoose("quit"):
plot(0,222,332)
 kind=1
 kind=2
  tok=0
 A,B,C
   t=0
 n=0
(?
 A>448
 A<1248
 B>=740-n*40
 B<=740-n*40+38
 t=n+1
*1
 A>242
 B>26
 A<446
 B<86
 t=1:kind=4
 t>0
,-
(savename$(t-1))>0
 tok=1
 tok=0
 kind=2
 tok=1
 C>0
 t>0
 tok=1
 kind=3
text("DO YOU REALLY WISH TO QUIT ANKH?",600,500,yellow)
text("YES",600,400,yellow)
text("NO",600,300,yellow)
  answer=0
 A,B,C:
 A,B,C
:2
 A>556
 B>392
 A<634
 B<424
 answer=1
;2
 A>564
 B>292
 A<630
 B<328
 answer=2
<2
 A>242
 B>26
 A<446
 B<86
 answer=2
 answer
 answer=1
quitgame
 kind=1
loadgame
 kind=2
  string$=savename$(t-1)
 A,B,C:
 452,742-(t-1)*40,794,34
  fin=0
   I$=
 A,B,C
 262282,mfnt%
 262281,,1280
 ,box%
Q6
 262277,,string$,box%,,32,
(string$)
 ,,box%
 262280,,box%
 ,box%
T7
 I$<>
(13)
 box%<740
 I$<>
(127)
 I$<>
(I$)>31
     string$+=I$
W
Y0
 (I$=
(127)
(8))
(string$)>0

(string$)=1
      string$=""

](      string$=
string$,
(string$)-1)

_0
 452,742-(t-1)*40,794,34
`
b*
 (I$=
(13)
 C=4)
(string$)>0
    fin=1
 blend_feature=1
f.
 452,742-(t-1)*40,794,34
g
h8
textla(">"+string$,450+10,740-(t-1)*40+10,white)
 blend_feature=1
 wt=1
  savename$(t-1)=string$
savegame
 A,B,C:
 cho=0
 neuort=0
   plot_menu_bar%=2
w.
sload(dir$+ortspr$+"ort"+
(ort)+xtra$)
 PROCsmerge(dir$+"sprites.items")
 PROCbackload(dir$+orte$+"ort"+STR$(ort)+xtra$)
 PROCsload(dir$+"sprites.items")
 PROCsmerge(dir$+"ortspr.ort"+STR$(ort)+xtra$)
 IF screen=1 THEN SYS6,112,2 ELSE SYS6,112,1
 PROCbackpack
 PROCbackpack(0)
 screen=1
6,112,2
6,112,1
savegame
(dir$+"saved."+
 #A,ort,items,px,py
 n=1
#A,var(n)
 n=1
#A,item(n)
 #A,acway,acpoint(acway)
(dir$+"saved.n")
 n=0
#A,savename$(n)
loadgame
(dir$+"saved."+
 #A,ort,items,loaded_x,loaded_y
 n=1
#A,var(n)
 n=1
#A,item(n)
 #A,acway,acpoint(acway)
 neuort=1
 game_loaded=1
walkdisplay
 move_enable
 arrived=0
wander
 cover_num>0
checkcover_before
 filmchen
spiele_filmchen_before
 IF direction=0THEN VDU7
 direction
 1:a$="l"
 2:a$="r"
 3:a$="o"
 4:a$="u"
schoose(a$+"/0"):
plotguy(a$+"/0")
 cover_num>0
checkcover_after
 filmchen
spiele_filmchen_after
 soon_way>0
@
 dieser Fall scheint hier nie einzutreten. \/ Loeschen?
    cw=soon_way:cn=soon_pt
"    acway=cw:acpoint(acway)=cn
find_out_path
wander_init
    soon_way=0:soon_pt=0
@
 dieser Fall scheint hier nie einzutreten. /\ Loeschen?
we_are_here
 fpx,fpy
 wah=0
find_out_nearest(3)
 px=fpx
 py=fpy
 wah=1
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
 ---------------------------------------------------------------------------
loadway
 A,m,n
 acway=1
 px=0:py=0
 direction=0
 olddir=0
F arr_way()=0:arr_pt()=0:arr_walkway()=0:arr_walkpt()=0:arr_ort()=0
 xtra$="":IF ort=26 AND var(106)=1 THEN xtra$="b"
 A=OPENIN("<ankh$dir>.wege.weg"+STR$(ort)+xtra$)
("<ankh$dir>.wege.weg"+
(ort))
#A,ways,pts,noeffect,horizon
! horizon+=picy:noeffect+=picy
 n=1
 ways
 #A,maxpoints(n),flat(n)
 m=1
 maxpoints(n)
 #A,wayx%(n,m),wayy%(n,m)
(   wayx%(n,m)+=picx:wayy%(n,m)+=picy
 n=1
 #A,arr_way(n),arr_pt(n),arr_walkway(n),arr_walkpt(n),arr_ort(n)
#A,roomitems
 n=1
 roomitems
 #A,item_x1(n),item_y1(n),item_x2(n),item_y2(n),item_typ(n),item_num(n),item_info$(n),item_name$(n),item_walkto_x(n),item_walkto_y(n)
  item_x1(n)+=picx
  item_y1(n)+=picy
  item_x2(n)+=picx
  item_y2(n)+=picy
  item_walkto_x(n)+=picx
  item_walkto_y(n)+=picy
$ ereignis_x%()=0:ereignis_y%()=0
#A,ereignisse
 ereignisse>0
 n=1
 ereignisse
#A,ereignis_x%(n),ereignis_y%(n)
0   ereignis_x%(n)+=picx:ereignis_y%(n)+=picy
 acpoint()=0
 inaction()=0
load_ob
 r%,d%,nr%,st$,counter%,count_check%
(dir$+"obj."+
(ort))
 r%=1
&  d%=
#A    :
 "objects=" einlesen
 obj_num=
readnumber
 Objektinformationen einlesen
 r%=1
 obj_num
 d%=111 :
 das kleine o gefunden, von 'obj1' etc
 d%=61  :
 bis = gefunden, von 'first='
   obj_first%(r%)=
readnumber
 d%=61  :
 bis = gefunden, von 'frames='
!!  obj_frames%(r%)=
readnumber
 d%=61  :
 bis = gefunden, von 'aktframe='
#$  obj_frame_akt%(r%)=
readnumber
$I  obj_frame_timer%(r%)=odata_time%(obj_first%(r%)+obj_frame_akt%(r%))
 count%=0
  count%+=1
 d%=62
 entweder ein > gefunden, oder Ende
 d%=62
   count_check%=
readnumber
.*
 IF count%<>count_check% THEN VDU7
/4
 d%=61 :
 bis = gefunden, von 'x='
0$    odata_x%(count%)=
readnumber
14
 d%=61 :
 bis = gefunden, von 'y='
2$    odata_y%(count%)=
readnumber
37
 d%=61 :
 bis = gefunden, von 'time='
4'    odata_time%(count%)=
readnumber
56
 d%=61 :
 bis = gefunden, von 'spr='
6)    odata_sprnum%(count%)=
readnumber
 r%=1
 obj_num
<I  obj_frame_timer%(r%)=odata_time%(obj_first%(r%)+obj_frame_akt%(r%))
readnumber
 st$,d%
 rnum%=0
  d%=
 d%>=48
 d%<=57
 st$+=
 d%=59   :
 bis ; gelesen
 rnum%=
(st$)
=rnum%
loadobjects
 Tueren initialisieren
 Siehe auch Ereignis-Effekt!
 doors_in_room=0
 ort
 state=3->zu, state=4->offen
 WHEN1:doors_in_room=1:door_x%(1)=560:door_y%(1)=350
 WHEN2:doors_in_room=1:door_x%(1)=1060:door_y%(1)=202
 WHEN6:doors_in_room=1:door_x%(1)=694:door_y%(1)=292
 WHEN7:doors_in_room=1:door_x%(1)=1070:door_y%(1)=254
 animierte Objekte und Verdeck-Objekte laden/initialisieren
 cover_num=0:obj_num=0
 load_nothing=0
 hier anmelden, wenn hier keine Objekte existieren
 ort=11 load_nothing=1
 ort=13 load_nothing=1
 ort=15 load_nothing=1
 ort=17 load_nothing=1
 ort>=18
 ort<25
 load_nothing=1
 ort=21
 load_nothing=0
 ort=30 load_nothing=1
 ort=31 load_nothing=1
 ort=35 load_nothing=1
 load_nothing=0
load_ob
 Verdeck-Objekte:
 ort
   cover_num=1
   cover_x%(1)=62
   cover_y%(1)=554
   cover_foot%(1)=554
   cover_num=3
   cover_x%(1)=642
   cover_y%(1)=336
   cover_foot%(1)=300
   cover_x%(2)=780
   cover_y%(2)=162
   cover_foot%(2)=0
   cover_x%(3)=294
   cover_y%(3)=448
   cover_foot%(3)=380
   cover_num=2
   cover_x%(1)=0
   cover_y%(1)=96
   cover_foot%(1)=0
   cover_x%(2)=430
   cover_y%(2)=214
   cover_foot%(2)=200
   cover_num=2
   cover_x%(1)=70
   cover_y%(1)=140
   cover_foot%(1)=0
   cover_x%(2)=958
   cover_y%(2)=166
   cover_foot%(2)=0
   cover_num=3
   cover_x%(1)=734
   cover_y%(1)=174
   cover_foot%(1)=0
   cover_x%(2)=350
   cover_y%(2)=446
   cover_foot%(2)=0
   cover_x%(3)=364
   cover_y%(3)=178
   cover_foot%(3)=160
   cover_num=2
   cover_x%(1)=386
   cover_y%(1)=338
   cover_foot%(1)=330
   cover_x%(2)=408
   cover_y%(2)=232
   cover_foot%(2)=232
   cover_num=1
   cover_x%(1)=722
   cover_y%(1)=96
   cover_foot%(1)=96
  WHEN 14:
   cover_num=1
   cover_x%(1)=676
   cover_y%(1)=312
   cover_foot%(1)=312
   cover_num=7
   cover_x%(1)=818
   cover_y%(1)=310
   cover_foot%(1)=310
   cover_x%(2)=1042
   cover_y%(2)=338
   cover_foot%(2)=338
   cover_x%(3)=578
   cover_y%(3)=328
   cover_foot%(3)=328
   cover_x%(4)=322
   cover_y%(4)=184
   cover_foot%(4)=184
   cover_x%(5)=142
   cover_y%(5)=272
   cover_foot%(5)=272
   cover_x%(6)=0
   cover_y%(6)=140
   cover_foot%(6)=140
   cover_x%(7)=1126
   cover_y%(7)=156
   cover_foot%(7)=156
 cover 8+9 nur aktiv, wenn Seil aufeh. (var49=1)
   cover_x%(8)=688
   cover_y%(8)=408
   cover_foot%(8)=300
   cover_x%(9)=688
   cover_y%(9)=408
   cover_foot%(9)=280
   cover_num=1
   cover_x%(1)=1000
   cover_y%(1)=250
   cover_foot%(1)=250
   cover_num=2
   cover_x%(1)=138
   cover_y%(1)=351
   cover_foot%(1)=351
   cover_x%(2)=948
   cover_y%(2)=372
   cover_foot%(2)=372
   cover_num=3
   cover_x%(1)=720
   cover_y%(1)=188
   cover_foot%(1)=188
   cover_x%(2)=168
   cover_y%(2)=638
   cover_foot%(2)=638
   cover_x%(3)=274
   cover_y%(3)=654
   cover_foot%(3)=654
   cover_num=1
   cover_x%(1)=38
   cover_y%(1)=256
   cover_foot%(1)=256
   cover_num=4
   cover_x%(1)=53
   cover_y%(1)=523
   cover_foot%(1)=523
   cover_x%(2)=168
   cover_y%(2)=572
   cover_foot%(2)=568
   cover_x%(3)=110
   cover_y%(3)=368
   cover_foot%(3)=368
   cover_x%(4)=982
   cover_y%(4)=344
   cover_foot%(4)=344
   cover_num=4
   cover_x%(1)=940
   cover_y%(1)=512
   cover_foot%(1)=512
   cover_x%(2)=866
   cover_y%(2)=408
   cover_foot%(2)=408
   cover_x%(3)=566
   cover_y%(3)=398
   cover_foot%(3)=398
   cover_x%(4)=0
   cover_y%(4)=328
   cover_foot%(4)=328
   cover_num=5
   cover_x%(1)=0
   cover_y%(1)=276
   cover_foot%(1)=276
   cover_x%(2)=1016
   cover_y%(2)=246
   cover_foot%(2)=246
   cover_x%(3)=0
   cover_y%(3)=430
   cover_foot%(3)=430
   cover_x%(4)=1210
   cover_y%(4)=472
   cover_foot%(4)=472
   cover_x%(5)=658
   cover_y%(5)=494
   cover_foot%(5)=494
   cover_num=1
   cover_x%(1)=0
   cover_y%(1)=96
   cover_foot%(1)=0
   cover_num=3
   cover_x%(1)=322
   cover_y%(1)=247
   cover_foot%(1)=247
   cover_x%(2)=60
   cover_y%(2)=255
   cover_foot%(2)=255
   cover_x%(3)=526
   cover_y%(3)=659
   cover_foot%(3)=100
   cover_num=2
   cover_x%(1)=84
   cover_y%(1)=478
   cover_foot%(1)=476
   cover_x%(2)=984
   cover_y%(2)=448
   cover_foot%(2)=448
   cover_num=1
   cover_x%(1)=424
   cover_y%(1)=406
   cover_foot%(1)=406
   cover_num=1
   cover_x%(1)=522
   cover_y%(1)=210
   cover_foot%(1)=210
   cover_num=3
   cover_x%(1)=464
   cover_y%(1)=322
   cover_foot%(1)=320
   cover_x%(2)=872
   cover_y%(2)=220
   cover_foot%(2)=0
   cover_x%(3)=152
   cover_y%(3)=314
   cover_foot%(3)=314
I=   cover_num=2:
 3.Cover versteckt, solang Vorhangtuer zu
   cover_num=2
   cover_x%(1)=110
   cover_y%(1)=217
   cover_foot%(1)=217
   cover_x%(2)=1148
   cover_y%(2)=247
   cover_foot%(2)=247
antfilm
 filmchen_akt
Y'
speak("Ohh!",898,526,blue)
Z/
speak("What's this?",898,526,blue)
[6
speak("Billy! Joe! George!",898,526,blue)
\)
speak("Jup?",964,514,yellow)
])
speak("Yes?",930,550,purple)
^*
speak("What?",940,486,orange)
_2
speak("C'mon! Help me!",898,526,blue)
`)
speak("Uhh!",952,552,yellow)
a2
speak("That's heavy!",918,560,yellow)
b*
speak("Damn!",952,638,lbrown)
c2
speak("Oh no! The cat!",892,682,blue)
d1
speak("Hurry up boys!",822,606,blue)
31: var(105)=1
f!
start_specialfilm(8)
g2
speak("We can do it!",778,696,orange)
playsample(5)
i6
speak("Haha! Stupid cat!",772,634,purple)
j?
speak("Keep your teeth on this...",732,702,yellow)
k1
speak("Damn! Billy!",754,712,yellow)
l3
speak("Ahrg! Come back!",754,712,blue)
m/
speak("Sorry Joe!",686,642,purple)
n5
speak("Here I am again.",686,648,purple)
o8
speak("We've almost done it!",708,748,blue)
p*
speak("Yeah!",742,764,purple)
q,
speak("Yippie!",664,762,yellow)
r=
speak("What's that thing, guys?",706,767,bgreen)
sB
speak("You've brought a fish bone???",706,767,bgreen)
t5
speak("You stupid ants!",706,767,bgreen)
u0
speak("but, but...",734,747,yellow)
vC
speak("You know the queen hates fish!",706,767,bgreen)
w=
speak("Well, come on in anyway.",706,767,bgreen)
xR
speak("At least we can use it to tease that pharaoh.",706,767,bgreen)
process_objects
 obj_num=0
 Extras: Nicht mehr vorhandene Objekte nicht anzeigen...
 po=1
 obj_num
  show_not=0
 po=4
 ort=4
 var(10)=1
 show_not=1
 po=2
 ort=4
 var(11)=1
 show_not=1
 po=4
 ort=4
 chatnum=19
 computertalk=1
 show_not=1
 po=4
 ort=4
 filmchen=37
 show_not=1
 po=4
 ort=4
 filmchen=38
 show_not=1
 po=5
 ort=4
 (chatnum>=52
 chatnum<=55
 computertalk=1)
 show_not=1
 po=2
 ort=5
 wineman_asks_cat=0
 show_not=1
 po=3
 ort=5
 wineman_asks_cat=1
 show_not=1
 po=3
 ort=5
 filmchen=36
 show_not=1
 po=3
 filmchen=1
 filmchen_akt>5
 filmchen_akt<88
 show_not=1
 po=1
 filmchen=1
 filmchen_akt>53
 filmchen_akt<88
 show_not=1
 po=3
 filmchen=3
 show_not=1
 po=1
 ort=7
 chatnum>0
 computertalk=1
 show_not=1
 ort=8
 (po=1
 po=2
 po=3)
 (chatnum=24
 chatnum=25
 chatnum=28)
 computertalk=1
 show_not=1
 (po=1
 po=2
 po=3)
 filmchen=4
 show_not=1
 po=2
 ort=9
 var(24)=1
 show_not=1
 po=3
 ort=9
 var(24)=0
 show_not=1
 po=5
 ort=10
 (var(27)=0
 computertalk=1)
 show_not=1
 po=6
 ort=10
 var(26)=0
 show_not=1
 po=3
 ort=8
 var(26)=0
 show_not=1
 po=1
 ort=14
 (var(28)=0
 var(91)=1)
 show_not=1
 po=1
 ort=1
 var(38)=0
 show_not=1
 po=1
 ort=2
 (cperson=38
 computertalk=1)
 filmchen=17
 show_not=1
 po=2
 ort=2
 (var(127)=0
(cperson=79
 computertalk=1))
 show_not=1
 po=5
 ort=3
 (var(57)=1
 (chatnum>0
 computertalk=1))
 show_not=1
 po=2
 ort=1
 ((chatnum=45
 computertalk=1)
(var(54)=1)
filmchen=18)
 show_not=1
 po=3
 ort=1
 ((chatnum=46
 computertalk=1)
(var(54)=1)
filmchen=18)
 show_not=1
 po=8
 ort=8
 (chatnum=56
 computertalk=1)
 show_not=1
 po=9
 ort=8
 filmchen=4
 show_not=1
 po=9
 ort=8
 (chatnum=24
 chatnum=25
 chatnum=28)
 computertalk=1
 show_not=1
 po=6
 ort=3
 (var(59)=1
 ((chatnum=63
 chatnum=64)
 computertalk=1))
 show_not=1
 po=7
 ort=3
 var(59)=0
 show_not=1
 po=4
 ort=5
 (var(101)=1
 var(100)=0
 (chatnum=69
 computertalk=1)
 filmchen=46)
 show_not=1
 po=1
 ort=26
 var(106)=1
 show_not=1
 po=1
 ort=28
 var(111)=0
 show_not=1
 po=4
 ort=28
 var(111)=0
 show_not=1
 po=3
 ort=28
 filmchen=58
 show_not=1
 po=2
 ort=28
 var(111)=1
 show_not=1
 po=3
 ort=28
 (chatnum=77
 computertalk=1)
 show_not=1
 po=1
 ort=34
 var(116)=0
 show_not=1
 po=1
 ort=12
 var(91)=1
 show_not=1
 po=2
 ort=12
 var(91)=1
 show_not=1
 po>=3
 ort=12
 var(91)=0
 show_not=1
 po=1
 ort=25
 ((chatnum<>59
 computertalk=1)
 var(122)=1)
 show_not=1
 po=2
 ort=25
 var(121)=0
 show_not=1
 po=1
 ort=36
 (var(130)=1
 var(131)=1
 var(132)=1
 var(133)=1
 var(134)=1)
 show_not=1
 po=2
 ort=36
 var(128)=0
 show_not=1
 po=3
 ort=36
 var(129)=0
 show_not=1
 po=4
 ort=36
 var(131)=0
 show_not=1
 po=5
 ort=36
 var(132)=0
 show_not=1
 po=6
 ort=36
 var(133)=0
 show_not=1
 po=7
 ort=36
 var(134)=0
 show_not=1
 po=5
 ort=6
 (var(136)=0
 var(91)=1)
 show_not=1
 po=1
 ort=21
 var(138)=1
 show_not=1
 po=1
 ort=27
 var(108)=1
 show_not=1
 show_not=0
   obj_frame_timer%(po)-=1
 obj_frame_timer%(po)=0
    obj_frame_akt%(po)+=1
E
 obj_frame_akt%(po)>obj_frames%(po)-1
 obj_frame_akt%(po)=0
K    obj_frame_timer%(po)=odata_time%(obj_first%(po)+obj_frame_akt%(po))
 odata_sprnum%(obj_first%(po)+obj_frame_akt%(po))>0
K
schoose("obj"+
(odata_sprnum%(obj_first%(po)+obj_frame_akt%(po))))
h
plot(8,odata_x%(obj_first%(po)+obj_frame_akt%(po)),odata_y%(obj_first%(po)+obj_frame_akt%(po)))
 ort=5
obj_katze
obj_katze
 answer$
 po<>2
 obj_frame_akt%(po)=3
playsample(13)
 obj_frame_akt%(po)>2
 obj_frame_akt%(po)<6
  answer$="Meow!"
 cat_is_silent=1
 answer$="Eh... mmmh..."
 cat_is_curious=1
 answer$="Eh... Meow??"
text(answer$,1000,550,white)
 obj_frame_akt%(po)>6
 wineman_asks_cat=0
wander_init
 sa,sb
 wand_x1=px
 wand_y1=py
" wand_x2=wayx%(nxt_way,nxt_pt)
" wand_y2=wayy%(nxt_way,nxt_pt)
 px=wand_x1
 py=wand_y1
 strA=wand_x2-wand_x1
 strB=wand_y2-wand_y1
 py<noeffect
  walkstep=30
  sa=horizon-noeffect
  sb=horizon-py
  walkstep=30/sa*sb
& dx=strA/
(strA^2+strB^2)*walkstep
* dy=strB/
(strA^2+strB^2)*walkstep:
 arrived=0
turnaround
 direction=0
 direction=newdir:
 newdir=1
 direction
 2:direction=3
 3:direction=1
 4:direction=1
 newdir=2
 direction
 1:direction=4
 3:direction=2
 4:direction=2
 newdir=3
 direction
 1:direction=3
 2:direction=3
 4:direction=2
 newdir=4
 direction
 1:direction=4
 2:direction=4
 3:direction=1
checkcover_before
 da das jedes Mal aufgerufen wird, werden die Objekte oft gemalt!
 Kostet (unnoetige?) Zeit!
 ck=1
 cover_num
 cover_foot%(ck)>=py
schoose("cover"+
(ck)):
plot(8,cover_x%(ck),cover_y%(ck))
 ort=16
 var(47)=1
 var(48)=0
schoose("inroom1"):
plot(8,412,200)
checkcover_after
 da das jedes Mal aufgerufen wird, werden die Objekte oft gemalt!
 Kostet (unnoetige?) Zeit!
 ck=1
 cover_num
 cover_foot%(ck)<=py
schoose("cover"+
(ck)):
plot(8,cover_x%(ck),cover_y%(ck))
check_sklave
 speakmode=0
3'  v=
comp_chat$(comp_pointer),1))
 v=1
schoose("cchat2-1"):
plot(8,850,96)
 v=2
schoose("cchat1-1"):
plot(8,500,96)
 speakmode=1
 speaking$<>""
 computertalk<>1
 chatnum <> 20
schoose("cchat2-1"):
plot(8,850,96)
 computertalk<>1
 chatnum <> 6
schoose("cchat1-1"):
plot(8,500,96)
wander
 cover_num>0
checkcover_before
 filmchen
spiele_filmchen_before
  px+=dx
  py+=dy
 py<500
 entf=200-(py/4)
 entf=0
 py<100
 entf=100
   VDU30:PRINT "End: ";wand_x2;"/";wand_y2;"  Actual: ";px;"/";py
   GCOL 12:POINT px,py
   PRINT :PRINT "increase x=";dx;" / increase y=";dy
   PRINT "walkstep=";walkstep
   PRINT TAB(0,8);"Next: ";nxt_way;"/";nxt_pt;"  "
   PRINT "Sec:  ";sec_way;"/";sec_pt;"  "
   PRINT "soon_way:";soon_way;" / soon_pt:";soon_pt
 dx>=0
 newdir=2
 newdir=1
 dy>0
(dx)
 newdir=3
 dy<0
(dy)>
(dx)
 newdir=4
 newdir<>direction
turnaround
 direction
 1:a$="l/"
 2:a$="r/"
 3:a$="o/"
 4:a$="u/"
 ((direction=3
 direction=4)
 walkanim>6)
 walkanim=1
schoose(a$+
(walkanim)):
plotguy(a$+
(walkanim))
 cover_num>0
checkcover_after
 filmchen
spiele_filmchen_after
ex  walkanim+=1:
 ((direction=1
 direction=2)
 walkanim>8)
 ((direction=3
 direction=4)
 walkanim>6)
 walkanim=1
 FOR a=1 TO 10:WAIT:NEXT
 px>wand_x2-walkstep*2/3
 px<wand_x2+walkstep*2/3
 py>wand_y2-walkstep*2/3
 py<wand_y2+walkstep*2/3
 der hier oben ist schoener als der da unten
 IF px>wand_x2-walkstep AND px<wand_x2+walkstep AND py>wand_y2-walkstep AND py<wand_y2+walkstep THEN
l(   px=wand_x2:py=wand_y2:
 nxt_way=0
 wn=1
ok
 px=wayx%(arr_way(wn),arr_pt(wn))
 py=wayy%(arr_way(wn),arr_pt(wn))
 enterroom=arr_ort(wn):wn=10
 soon_way=0
s#
find_out_path:
wander_init
 nxt_way=0

 ereig_auswirk=2

ereignis_blocks_way_special=1
playerspeak("Sorry, you're only playing the demo, so we'll not see that beautiful palace!")

zD     arrived=1 :
 look_is_important
look_into_right_direction
     walkanim=1
|

wander_init
~
    cw=soon_way:cn=soon_pt
    sec_way=0:sec_pt=0
"    acway=cw:acpoint(acway)=cn
find_out_path
 nxt_way=0

 ereig_auswirk=2

ereignis_blocks_way_special=1
playerspeak("Sorry, but this path is blocked - you're only playing the demo version!!")

C     arrived=1:
 look_is_important
look_into_right_direction
     walkanim=1


wander_init

    soon_way=0:soon_pt=0
look_into_right_direction
 real_target_x-4<px
 direction=1
 real_target_x+4>px
 direction=2
 look_is_important=0
ereignis_blocks_way
 eb,bk
     bk=0
 eb=1
 ereignisse
 ereignis_x%(eb)=x1
 ereignis_y%(eb)=y1
 bk=1
ereignis_blocks_way_special
 eb,bk
     bk=0
 eb=1
 ereignisse
 ereignis_x%(eb)=px
 ereignis_y%(eb)=py
 bk=1
findwalkpoint
 it,ia,ib
 ia=0:ib=0
 it=1
 roomitems
 A>=item_x1(it)
 A<=item_x2(it)
 B>=item_y1(it)
 B<=item_y2(it)
 ia=item_walkto_x(it):ib=item_walkto_y(it)
 ia+ib>0
 A=ia:B=ib:look_is_important=1
findwalkpoint16
 it,ia,ib
 ia=0:ib=0
 it=1
 roomitems
 it<>20
 A>=item_x1(it)
 A<=item_x2(it)
 B>=item_y1(it)
 B<=item_y2(it)
 ia=item_walkto_x(it):ib=item_walkto_y(it)
 ia+ib>0
 A=ia:B=ib:look_is_important=1
find_out_nearest(mode)
 clen,cw,cn,w,n,x1,x2,y1,y2,b,c,blok
 blok=0
 clen=10000
 ort=16
 (var(74)=0
 var(101)=1)
findwalkpoint16
findwalkpoint
 real_target_x=A
 real_target_y=B
 w=1
 ways
 maxpoints(w)>0
 group(w)=group(acway)
 n=1
 maxpoints(w)
    x1=wayx%(w,n)
    y1=wayy%(w,n)
5
 ereig_auswirk=1
 blok=
ereignis_blocks_way
    x2=A
    y2=B
    a=x2-x1
    b=y2-y1
    c=
(a^2+b^2)
,
 c<clen
 blok=0
 clen=c:cw=w:cn=n
 ort=34
 cw=1
 cn<15
 cn=15
 mode=1
 arrived=1
!   acway=cw:acpoint(acway)=cn
   soon_way=cw:soon_pt=cn
 soon_way=fin_way
 soon_pt=fin_pt
 soon_way=0:soon_pt=0
 mode=2
 arrived=1
 px=wayx%(cw,cn):py=wayy%(cw,cn)
 mode=3
 fpx=wayx%(cw,cn):fpy=wayy%(cw,cn)
 arrived=1
find_out_path
find_out_path
 pway=0:ppoint=0
 cw=acway:cn=acpoint(cw)
 samefound=0
 w=1
 ways
 maxpoints(w)>0
 n=1
 maxpoints(w)
)
 px=wayx%(w,n)
 py=wayy%(w,n)
     pway=w:ppoint=n
;
 nxt_way>0
 pway=nxt_way
 n=maxpoints(w):w=ways

 sec_way>0
 sec_way>0
 (sec_way<>nxt_way
 sec_pt<>nxt_pt)
findnextpoint
 inaction()=0
 samefound=0
 f=1
 ways
 g=1
 maxpoints(f)
 wayx%(pway,ppoint)=wayx%(f,g)
 wayy%(pway,ppoint)=wayy%(f,g)
#    inaction(f)=inaction(f)
 wayx%(cw,cn)=wayx%(f,g)
 wayy%(cw,cn)=wayy%(f,g)
#    inaction(f)=inaction(f)
 f=1
 ways
 inaction(f)=3
   samefound=f
 g=1
 maxpoints(f)
Y
 wayx%(pway,ppoint)=wayx%(f,g)
 wayy%(pway,ppoint)=wayy%(f,g)
 pway=f:ppoint=g
G
 wayx%(cw,cn)=wayx%(f,g)
 wayy%(cw,cn)=wayy%(f,g)
 cw=f:cn=g
 samefound>0
 ppoint=cn
   fin_way=0:fin_pt=0
   sec_way=0:sec_pt=0
   nxt_way=0:nxt_pt=0
   fin_way=cw  :fin_pt=cn
   sec_way=0   :sec_pt=0
findnextpoint
 samefound=0
   allright=1
   exit_recur=0
   found_next=0
   inaction()=0
1"
 PRINT TAB(0,8);"        "
22
rekursiv(pway):
 PRINTTAB(0,8);"REKURSIV"
 ppoint=found_next
    allright=0
 f=1
 ways

 g=1
 maxpoints(f)
7K
 wayx%(pway,ppoint)=wayx%(f,g)
 wayy%(pway,ppoint)=wayy%(f,g)
80       pway=f:ppoint=g:g=maxpoints(f):f=ways


 allright
  fin_way=cw:fin_pt=cn
@$  sec_way=pway:sec_pt=found_next
 fin_way=sec_way
 fin_pt=sec_pt
 sec_way=0:sec_pt=0
findnextpoint
findnextpoint
 sec_way>0
 nxt_way=sec_way:ap=sec_pt
 nxt_way=fin_way:ap=fin_pt
 ap>ppoint
 nxt_pt=ppoint+1
 nxt_pt=ppoint-1
rekursiv(r_way)
 r_pt,abz_gef,n,w,m
  inaction(r_way)=1
 r_pt=1
 maxpoints(r_way)
   abz_gef=0
 w=1
 ways
 inaction(w)=0

 m=1
 maxpoints(w)
TI
 wayx%(w,m)=wayx%(r_way,r_pt)
 wayy%(w,m)=wayy%(r_way,r_pt)
       abz_gef=w


X
Z:
 abz_gef>0
 (abz_gef=0
 r_pt=maxpoints(r_way))
 abz_gef=0
\"
 r_way=cw
 exit_recur=1
]

rekursiv(abz_gef)
_L
 exit_recur=1
 r_way=pway
 found_next=r_pt:r_pt=maxpoints(r_way)
`
 r_pt
plotguy(p$)
 a,b,ploty,speak_y_offset
 filmchen=4
 guy_special%
plotguy_special:
 giveanim>0
plotguy_give:
 takeanim>0
plotguy_take:
 takeanim_low>0
plotguy_take_low:
 just_using
plotguy_use:
 (computertalk=2
 direction<>3)
 (justspeaking=1
 direction<>3)
plotguy_talk
  hor=horizon
  nef=noeffect
 ort=27
 px>500
 py<400
 hor=420
  a=hor-nef
  b=hor-py
  entf=100/a*b
 py<=noeffect
 entf=100
 ort=36
 entf=65
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom(px-140*entf/100,ploty,entf,entf,100,100,p$)
 ort=36
schoose("menubar"):
cmemplot(0,0,0)
plotguy_give
 givemax
 p$="rg/"
 direction
 1:p$="lg/":givemax=11
 2:p$="rg/":givemax=11
 3:p$="og/":givemax=13
 4:p$="ug/":givemax=7
 direction<3
 giveanim
 1:t=3
 2:t=4
 3:t=5
 4:t=6
 5:t=6
 6:t=5
 7:t=4
 8:t=3
@
 9:t=3:use_a$=givemerk_a$:use_b$=givemerk_b$:
wannagive
10:t=3
11:t=1
 direction=1
 giveanim

 1:t=2

 2:t=3

 3:t=4

 4:t=4

 5:t=3

 6:t=2

 7:t=1

 8:t=5

 9:t=6

10:t=7
A
11:t=7:use_a$=givemerk_a$:use_b$=givemerk_b$:
wannagive

12:t=6

13:t=5

 giveanim

 1:t=3

 2:t=4

 3:t=4

 4:t=3

 5:t=2

 6:t=1
A
 7:t=1:use_a$=givemerk_a$:use_b$=givemerk_b$:
wannagive

  t$=
1  giveanim+=1:
 giveanim>givemax
 giveanim=0
  a=horizon-noeffect
  b=horizon-py
  entf=100/a*b
 py<=noeffect
 entf=100
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom(px-140*entf/100,ploty,entf,entf,100,100,p$+t$)
plotguy_special
  a=horizon-noeffect
  b=horizon-py
  entf=100/a*b
 py<=noeffect
 entf=100
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom_smem(px-(140-guy_specialofs%)*entf/100,ploty,entf,entf,100,100,"special"+
(guy_special%))
  guy_special%+=1
 guy_special%>guy_specialmax%
 guy_special%=0
plotguy_take
 takemax
 p$="rg/"
 direction
 1:p$="lg/":takemax=7
 2:p$="rg/":takemax=7
 3:p$="og/":takemax=6:
 4:p$="ug/":takemax=5
 direction<3
 takeanim
 1:t=1
 2:t=3
"
 3:t=4:player_has_taken=1
 4:t=5
 5:t=6
 6:t=5
 7:t=1
 direction=3
 takeanim
     WHEN 1:t=5
     WHEN 2:t=6
     WHEN 3:t=7:player_has_taken=1
     WHEN 4:t=6
     WHEN 5:t=5

 1:t=1

 2:t=2
$
 3:t=3:player_has_taken=1

 4:t=4

 5:t=3

 6:t=2

 takeanim
#
 1:t=1:player_has_taken=1

 2:t=2

 3:t=3

 4:t=4

 5:t=3

  t$=
1  takeanim+=1:
 takeanim>takemax
 takeanim=0
  a=horizon-noeffect
  b=horizon-py
  entf=100/a*b
 py<=noeffect
 entf=100
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom(px-140*entf/100,ploty,entf,entf,100,100,p$+t$)
plotguy_take_low
 takemax,rutsch
 direction
 1:p$="lh/":takemax=7:rutsch=80
 2:p$="rh/":takemax=7:rutsch=-80
 direction=1
 direction=2
 takeanim_low
 1:t=1
 2:t=2
 3:t=3
 4:t=4
%"
 5:t=3:player_has_taken=1
 6:t=2
 7:t=1
  t$=
,=  takeanim_low+=1:
 takeanim_low>takemax
 takeanim_low=0
  a=horizon-noeffect
  b=horizon-py
  entf=100/a*b
 py<=noeffect
 entf=100
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom(px-(140+rutsch)*entf/100,ploty,entf,entf,100,100,p$+t$)
plotguy_use
  just_using=0
 direction
 1:p$="lg/3"
 2:p$="rg/3"
 3:p$="og/5"
 4:p$="ug/1"
  a=horizon-noeffect
  b=horizon-py
  entf=100/a*b
 py<=noeffect
 entf=100
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom(px-140*entf/100,ploty,entf,entf,100,100,p$)
plotguy_talk
 direction
 1:p$="lt/"
 2:p$="rt/"
 3:p$="ot/"
 4:p$="ut/"
  t$=
(speakanim)
S1  speakanim+=1:
 speakanim>4
 speakanim=
  a=horizon-noeffect
  b=horizon-py
  entf=100/a*b
 py<=noeffect
 entf=100
  ploty=py
 direction=3
 direction=4
 ploty-=(10*entf/100) :
 weil y-Pics hoeher...
 entf>0
zoom(px-140*entf/100,ploty,entf,entf,100,100,p$+"0")
 entf>0
zoom(px-140*entf/100,ploty+((127-2)*entf/100*2),entf,entf,100,100,p$+t$)
comp_gives_something
 give_something=1
 comp_give_anim_current=0
 Wer ist die Geber-Person?
 (Gleiche wie bei InitChat)
 Personen:
  1=Papa
  2=Lyb. Terr.
  3=McDo
  4=SklavTreib
  5=Betrunkener
  6=MiscGirl
  7=WeinMann
 19=Fakir
 24=Faehrmann links vom Nil
 26=Faehrmann rechts vom Nil
 31=Karawanenjungs
 chnum einer Person zuordnen
 chatperson=
assign_chnum
 chatperson
   comp_give_anim_max=5
|7   comp_give_anim_x(1)=812: comp_give_anim_y(1)=394
}7   comp_give_anim_x(2)=812: comp_give_anim_y(2)=394
~7   comp_give_anim_x(3)=812: comp_give_anim_y(3)=394
7   comp_give_anim_x(4)=812: comp_give_anim_y(4)=394
7   comp_give_anim_x(5)=812: comp_give_anim_y(5)=394
   comp_give_anim_pic(1)=1
   comp_give_anim_pic(2)=2
   comp_give_anim_pic(3)=2
   comp_give_anim_pic(4)=2
   comp_give_anim_pic(5)=2
process_comp_give
 comp_give_anim_current<comp_give_anim_max
 comp_give_anim_current+=1
schoose("give_anim"+
(comp_give_anim_pic(comp_give_anim_current)))
plot(8,comp_give_anim_x(comp_give_anim_current),comp_give_anim_y(comp_give_anim_current))
 comp_give_anim_current=comp_give_anim_max
 VDU7
 dann give_something=2, und Spieler nimmt es
 umd letzte CompGebe-Anim bleibt, bis Sp. es 'genommen' hat
 give_something=1
 give_something=2:takeanim=1
 player_has_taken
   give_something=0
   player_has_taken=0
 IF chatnum=17 THEN var(15)=1:PROCadditem(14):REM das ist das Original
D   var(15)=1:
additem(14):
 jetzt funkts nur noch fuer Weinmann.
comp_takes_something
 take_something=1
 comp_take_anim_current=0
 Wer ist die Geber-Person?
 (Gleiche wie bei InitChat)
 Personen:
  1=Papa
  2=Lyb. Terr.
  3=McDo
  4=SklavTreib
  5=Betrunkener
  6=MiscGirl
  7=WeinMann
 19=Fakir
 24=Faehrmann links vom Nil
 26=Faehrmann rechts vom Nil
 31=Karawanenjungs
 chnum einer Person zuordnen
 chatperson=
assign_chnum
 chatperson
   comp_take_anim_max=8
7   comp_take_anim_x(1)=420: comp_take_anim_y(1)=374
7   comp_take_anim_x(2)=420: comp_take_anim_y(2)=374
7   comp_take_anim_x(3)=420: comp_take_anim_y(3)=374
7   comp_take_anim_x(4)=420: comp_take_anim_y(4)=374
7   comp_take_anim_x(5)=420: comp_take_anim_y(5)=374
7   comp_take_anim_x(6)=420: comp_take_anim_y(6)=374
7   comp_take_anim_x(7)=420: comp_take_anim_y(7)=374
7   comp_take_anim_x(8)=420: comp_take_anim_y(8)=374
   comp_take_anim_pic(1)=2
   comp_take_anim_pic(2)=2
   comp_take_anim_pic(3)=1
   comp_take_anim_pic(4)=1
   comp_take_anim_pic(5)=2
   comp_take_anim_pic(6)=2
   comp_take_anim_pic(7)=3
   comp_take_anim_pic(8)=3
process_comp_take
 comp_take_anim_current+=1
schoose("give_anim"+
(comp_take_anim_pic(comp_take_anim_current)))
plot(8,comp_take_anim_x(comp_take_anim_current),comp_take_anim_y(comp_take_anim_current))
 comp_take_anim_current=comp_take_anim_max
 take_something=0
voegel_init
smerge(dir$+sprites$+"vog")
 voegel=2
 flug_x%(1)=200
 flug_y%(1)=400
 flug_radius%(1)=6
 flug_step%(1)=0
 flapcount%(1)=0
 flap%(1)=0
 wings%(1)=3
 flug_x%(2)=300
 flug_y%(2)=500
 flug_radius%(2)=4
 flug_step%(2)=120
 flapcount%(2)=0
 flap%(2)=0
 wings%(2)=3
voegel_work
 q,vogx,vogy,fs
 q=1
 voegel
'  vogx=flugkreis%?(flug_step%(q)*2)
)  vogy=flugkreis%?(flug_step%(q)*2+1)
  flapcount%(q)+=1
 flap%(q)=0
(20)=1
 flap%(q)=1:flapcount%(q)=0
 flap%(q)>0
#   wings%(q)=flugwing%?flap%(q)
,   flap%(q)+=1:
 flap%(q)>8
 flap%(q)=0
  num=5
  fs=flug_step%(q)
 fs>20
 num=6
 fs>62
 num=7
 fs>72
 num=8
 fs>90
 num=1
 fs>172
 num=2
 fs>190
 num=3
 fs>200
 num=4
 fs>220
 num=5
schoose("v"+
(num)+"-"+
(wings%(q)))
plot(8,flug_x%(q)+vogx*flug_radius%(q),flug_y%(q)+vogy*flug_radius%(q))
E  flug_step%(q)+=2:
 flug_step%(q)>=kreisnum-1
 flug_step%(q)=0
make_scr_block
 scrblock% 24
$ scrblock%!0=
(scr_get_base_adr)
 lowres%=0
  scrblock%!4=640
  scrblock%!8=400
  scrblock%!4=640
  scrblock%!8=256
% screen_base%=
(scr_get_base_adr)
make_fade_block
 fadeblock% 24
% fadeblock%!0=
(scr_get_base_adr)
 lowres%=0
  fadeblock%!4=640
  fadeblock%!8=400
  fadeblock%!4=640
  fadeblock%!8=256
 fadeblock%!12=20
 fadeblock%!16=100
 fadeblock%!20=49
backplot
 A%=Backmem
 lowres%=0
  B%=screen_base%
 screen=1
 B%+=640*400*2
2#  B%=screen_base%+640*31 :
 screen=1
 B%+=640*256
5     C%=1
 scr_put_32k_spr_back
assemble
 Midi_thru 1024
 stack 128
 pass=0
 P%=Midi_thru
 [OPT pass
.args_to_rvduvars
        EQUD     149
        EQUD     -1
.out_from_rvduvars
      EQUD 0
;scr_get_base_adr
O.; funktion gets base adr of the screen mem
;args     -
R$;out      r0      screen mem adr
.scr_get_base_adr
U&        STMFD   R13!, {R4-R9, R14}
V(        ADR     r0, args_to_rvduvars
W)        ADR     r1, out_from_rvduvars
X)        SWI     "OS_ReadVduVariables"
Z)        LDR     r0, out_from_rvduvars
\&        LDMFD   R13!, {R4-R9, R15}
; end scr_get_base_adr
;scr_put_32k_spr_mask
aO; funktion plots 32k color sprite mit maske und an den Seiten Abgeschnitten
c&; args  r0       ptr to spritearea
d*;       r1       ptr to scr + spr info
e"; out   r0       0 kein fehler
f(;                -1 sprite not found
; used  r2       temp work
;       r3       temp work
k$;       R4       anz spr in area
l(;       R5       ptr to akt spr data
.ysize
 EQUD 0
.scr_put_32k_spr_mask
q1        STMFD   R13!, { R4-R9, R12, R11, R14}
s-        LDMFD   r0, { R6, R7, R8}
tL        ADD     R5, r0, R8          ; ptr zum ersten byte vom ersten spr
v:        LDRB    r3, [r1, #20]       ; gesuchte spr_num
.spr_search
x>        LDRB    r2, [R5, #4]       ; num des akt spr in r2
        SUB     r2, r2, #48

        CMP     r3, r2
        BEQ     spr_testen
~/        ; ptr (R5) auf n
 chtes spr setzen
        LDR     R6, [R5]
        ADD     R5, R5, R6

5        ; wenn noch mehr sprs dann nochmal testen
        SUBS    R7, R7, #1
(        BNE     spr_search
!        ; fehlermeldung laden
        MVN     r0, #0
        B       schluss
.spr_testen
        ; R4 xpos of spr
9        ; R5 ptr to akt sprite ( !von oben gegeben! )
(        ; R6 ptr to akt spr databyte
        ; R7 ypos of spr
        ; R8 xsize of spr
        ; R9 ysize of spr
E        ; R12 cut_left (anz der pixel, die links gecuttet werden)
F        ; R11 cut_right (anz der pixel, die links gecuttet werden)
        ; spr daten
!        LDR     r2, [R5, #32]
        ADD     R6, R5, r2
        ; spr_size
4        LDR     R8, [R5, #16]        ; spr_xsize
        ADD     R8, R8, #1
4        LDR     R9, [R5, #20]        ; spr_ysize
        ADD     R9, R9, #1
#        ; spr y position testen
!        LDR     R7, [r1, #16]
        CMP     R7, #0
        STRGE   R7, ysize
        BGE     unten
6         ; wenn oben abgeschnitten (-> R7 negativ)
?        ADD     R9, R9, R7           ; ysize kleiner machen
        MUL     r2, R7, R8
%        SUB     R6, R6, r2, LSL#2
        MOV     R7, #0
        STR     R7, ysize
.unten
D        ADD    R7, R9, R7            ; R7 wird das yende des spr
        LDR    r2, [r1, #8]
>        CMP    R7, r2                ; R7 gr
 er als r2
        BLE    xcheck
        SUB    R7, R7, r2
        SUB    R9, R9, R7
.xcheck  ; linke seite
         LDR    R4, [r1, #12]
        CMP    R4, #0
        MOVGE  R12, #0
        MOVLT  r2, #0
U        SUBLT  R12, r2, R4           ; anzahl der pixel, die spr links
 bersteht
        ; rechte Seite
$        ADD    R4, R4, R8, LSL#1
        LDR    r2, [r1, #4]
        CMP    R4, r2
        MOVLE  R11, #0
U        SUBGT  R11, R4, r2          ; anzahl der pixel, die spr rechts
 bersteht
B        ; wenn beide 0 dann normale routine, sonst spr_put_cut
        ADDS   r3, R11, R12
        BNE    spr_put_cut
.spr_anzeigen
        ; r2 temp
        ; r3 temp
.        ; R4 temp z
 hler f
 r spr_xsize
9        ; R5 ptr to akt sprite ( !von oben gegeben! )
)        ; R6 ptr to akt spr databyte
%        ; R7 ptr to akt scr byte
D        ; R8 xsize of spr ( !von oben gegeben! + wird angepasst)
L        ; R9 ysize of spr ( !von oben gegeben! )  (wird runtergez
 hlt)
        ; R12 scr_xsize
        ; scr pos setzen
6        LDR     r2, ysize            ; spr_y laden
"        MOV     r2, r2, LSL #1
5        LDR     R12, [r1, #4]         ; scr_xsize
B        MUL     R7, r2, R12           ; offset durch yposition
9        LDR     r2, [r1]             ; scr_base laden
        ADD     R7, R7, r2
6        LDR     r2, [r1, #12]        ; spr_x laden
9        ADD     R7, R7, r2, LSL#1    ; spr_x addieren
%        ; spr size anpassen (x*2)
"        MOV     R8, R8, LSL #1
4        MOV     R4, R8        ; x z
 hler stzen
    .loop
!;        LDR     r2, [R6], #2
";        MOVS    r3, r2, LSR#8
;        BNE     plotok
;
S    r2, r2, #255
;        BNE     plot
;        ADD     R7, R7, #2
;        B       nextx
;.plotok
;
     r2, r2, #255
;.plot
         LDRB    r2, [R6], #1
         LDRB    r3, [R6], #1
         STRB    r2, [R7], #1
         STRB    r3, [R7], #1
.nextx
        SUBS    R4, R4, #1
        BNE     loop
        SUBS    R9, R9, #1
        MOVNE   R4, R8
K        SUBNE   R7, R7, R8, LSL#1    ; zur
 ck an den Anfang der Zeile
;        ADDNE   R7, R7, R12, LSL#1    ; *2 und addieren
        BNE     loop
        MOV     r0, #0
        B       schluss
.spr_put_cut
        ; r2 temp
        ; r3 temp
    .        ; R4 temp z
 hler f
 r spr_xsize
        ; R5 scr_xsize
)        ; R6 ptr to akt spr databyte
%        ; R7 ptr to akt scr byte
D        ; R8 xsize of spr ( !von oben gegeben! + wird angepasst)
L        ; R9 ysize of spr ( !von oben gegeben! )  (wird runtergez
 hlt)
:        ; R12 anz der pixel, die links gecuttet werden
;        ; R11 anz der pixel, die rechts gecuttet werden
        ; scr pos setzen
6        LDR     r2, ysize            ; spr_y laden
"        MOV     r2, r2, LSL #1
4        LDR     R5, [r1, #4]         ; scr_xsize
A        MUL     R7, r2, R5           ; offset durch yposition
9        LDR     r2, [r1]             ; scr_base laden
        ADD     R7, R7, r2
6        LDR     r2, [r1, #12]        ; spr_x laden
9        ADD     R7, R7, r2, LSL#1    ; spr_x addieren
%        ; spr size anpassen (x*2)
 "        MOV     R8, R8, LSL #1
"9        SUB     R4, R8, R12        ; x z
 hler stzen
#X        SUB     R4, R4, R11        ; das was rechts und links gecuttet wird abziehen
%R        ADD     R6, R6, R12, LSL#1 ; das was links gecuttet wird
 berspringen
&R        ADD     R7, R7, R12, LSL#1 ; das was links gecuttet wird
 berspringen
.loopc
(         LDR     r2, [R6], #2
*!        MOVS    r3, r2, LSR#8
        BNE     plotokc

S    r2, r2, #255
        BNE     plotc
        ADD     R7, R7, #2
        B       nextxc
.plotokc

     r2, r2, #255
.plotc
5         STRB    r2, [R7], #1
6         STRB    r3, [R7], #1
.nextxc
        SUBS    R4, R4, #1
        BNE     loopc
<W        ADD     R6, R6, R11, LSL#1     ; das was rechts gecuttet wird
 berspringen
=W        ADD     R7, R7, R11, LSL#1     ; das was rechts gecuttet wird
 berspringen
        SUBS    R9, R9, #1
@<        SUB     R4, R8, R12           ; x z
 hler stzen
A[        SUB     R4, R4, R11           ; das was rechts und links gecuttet wird abziehen
CK        SUB   R7, R7, R8, LSL#1      ; zur
 ck an den Anfang der Zeile
DC        ADD   R7, R7, R5, LSL#1      ; scr_xsize*2 und addieren
FU        ADD     R6, R6, R12, LSL#1    ; das was links gecuttet wird
 berspringen
GU        ADD     R7, R7, R12, LSL#1    ; das was links gecuttet wird
 berspringen
        BNE     loopc
        MOV     r0, #0
        B       schluss
.schluss
P0        LDMFD   R13!, {R4-R9, R12, R11, R15}
;scr_put_32k_spr_back
T%; funktion plots 32k color sprite
V&; args  r0       ptr to spritearea
W(;       r1       ptr to scr_base_adr
;       r2       spr_num
Z"; out   r0       0 kein fehler
[(;                -1 sprite not found
.stack_store
 EQUD 0
.scr_put_32k_spr_back
a(        STMFD   R13!, { r3-r12, R14}
b$        STR     R13, stack_store
c-        LDMFD   r0, { R6, R7, R8}
dL        ADD     R5, r0, R8          ; ptr zum ersten byte vom ersten spr
f:        MOV     r3, r2              ; gesuchte spr_num
.spr_search_back
h?        LDRB    r2, [R5, #4]        ; num des akt spr in r2
        SUB     r2, r2, #48

        CMP     r3, r2
        BEQ     preloop
n/        ; ptr (R5) auf n
 chtes spr setzen
        LDR     R6, [R5]
        ADD     R5, R5, R6
r5        ; wenn noch mehr sprs dann nochmal testen
        SUBS    R7, R7, #1
t-        BNE     spr_search_back
v!        ; fehlermeldung laden
        MVN     r0, #0
        B       schluss
.preloop
{!        ADR     R14, loop_put
}!        LDR     R6, [R5, #16]
~!        LDR     R7, [R5, #20]
        ADD     R6, R6, #1
        ADD     R7, R7, #1
        MUL     r2, R6, R7
        ;SUB     r2, r2, #1
a        MOV     r2, r2, LSL #2     ; *2 weil 2bytes per pixel, *2 weil xsize nur dir H
 lfte
        MOV     r0, r1
!        LDR     R6, [R5, #32]
        ADD     r1, R5, R6
.loop_put
        CMP     r2, #40
'        LDMGEFD   r1!, { r3 - r12 }
'        STMGEEA   r0!, { r3 - r12 }
!        SUBGE     r2, r2, #40
        MOVGE     R15, R14
        ;BGE     put40
        CMP     r2, #4
        BGE     put4
        CMP     r2, #0
        BNE     put1
$        LDR     R13, stack_store
1        LDMFD   R13!, { r3 - r12, R15} ; exit
.put40
%        LDMFD   r1!, { r3 - r12 }
%        STMEA   r0!, { r3 - r12 }
        SUB     r2, r2, #40
        MOV     R15, R14
    .put4
         LDR     r3, [r1], #4
         STR     r3, [r0], #4
        SUB     r2, r2, #4
        MOV     R15, R14
    .put1
         LDRB    R3, [r1], #1
         STRB    R3, [r0], #1
        SUB     R2, R2, #1
        MOV     R15, R14
 pass
tplot_init
 Assembler
 plot_transp 1024
 stack 128
 pass=0
 P%=plot_transp
 [OPT pass
.args_to_rvduvars
        EQUD     149
        EQUD     -1
.out_from_rvduvars
      EQUD 0

;scr_get_base_adr
.; funktion gets base adr of the screen mem
;args     -
$;out      R0      screen mem adr
;.scr_get_base_adr
';        STMFD   R13!, {R4-R9, R14}
);        ADR     R0, args_to_rvduvars
*;        ADR     R1, out_from_rvduvars
*;        SWI     "OS_ReadVduVariables"
*;        LDR     R0, out_from_rvduvars
';        LDMFD   R13!, {R4-R9, R15}
;; end scr_get_base_adr
;fscr_put_32k_spr_mask
O; funktion plots 32k color sprite mit maske und an den Seiten Abgeschnitten
&; args  R0       ptr to spritearea
*;       R1       ptr to scr + spr info
$;       R2       opacity -2 .. 2
"; out   R0       0 kein fehler
(;                -1 sprite not found
; used  R2       temp work
;       R3       temp work
$;       R4       anz spr in area
(;       R5       ptr to akt spr data
.mkysize
 EQUD 0
.mksp_store
 EQUD 0
.mkbit16
 EQUD 65535
.mkopacity
 EQUD 0
.fscr_put_32k_spr_mask
(        STMFD   R13!, { R1-R12, R14}
#        STR     R13, mksp_store
!        STR     R2, mkopacity
-        LDMFD   R0, { R6, R7, R8}
L        ADD     R5, R0, R8          ; ptr zum ersten byte vom ersten spr
:        LDRB    R3, [R1, #20]       ; gesuchte spr_num
.spr_search
=        LDRB    R2, [R5, #4]       ; zuerst nach $ suchen
        CMP     R2, #&24
        BNE     mkweita
    >        LDRB    R2, [R5, #5]       ; num des akt spr in R2
        CMP     R3, R2
         BEQ     mkspr_testen
.mkweita
.        ; ptr (R5) auf naechtes spr setzen
        LDR     R6, [R5]
        ADD     R5, R5, R6
5        ; wenn noch mehr sprs dann nochmal testen
        SUBS    R7, R7, #1
(        BNE     spr_search
!        ; fehlermeldung laden
'        MVN     R0, #0
        B       mkschluss
.mkspr_testen
        ; R4 xpos of spr
9        ; R5 ptr to akt sprite ( !von oben gegeben! )
(        ; R6 ptr to akt spr databyte
        ; R7 ypos of spr
        ; R8 xsize of spr
        ; R9 ysize of spr
!E        ; R12 cut_left (anz der pixel, die links gecuttet werden)
"F        ; R11 cut_right (anz der pixel, die links gecuttet werden)
        ; spr daten
%!        LDR     R2, [R5, #32]
        ADD     R6, R5, R2
        ; spr_size
)4        LDR     R8, [R5, #16]        ; spr_xsize
        ADD     R8, R8, #1
,4        LDR     R9, [R5, #20]        ; spr_ysize
        ADD     R9, R9, #1
/#        ; spr y position testen
0!        LDR     R7, [R1, #16]
        CMP     R7, #0
        STRGE   R7, mkysize
        BGE     mkunten
46         ; wenn oben abgeschnitten (-> R7 negativ)
5?        ADD     R9, R9, R7           ; ysize kleiner machen
        MUL     R2, R7, R8
7%        SUB     R6, R6, R2, LSL#2
        MOV     R7, #0
        STR     R7, mkysize
.mkunten
<D        ADD    R7, R9, R7            ; R7 wird das yende des spr
        LDR    R2, [R1, #8]
>=        CMP    R7, R2                ; R7 groesser als R2
        BLE    mkxcheck
        SUB    R7, R7, R2
        SUB    R9, R9, R7
.mkxcheck  ; linke seite
E         LDR    R4, [R1, #12]
        CMP    R4, #0
        MOVGE  R12, #0
        MOVLT  R2, #0
JU        SUBLT  R12, R2, R4           ; anzahl der pixel, die spr links uebersteht
        ; rechte Seite
M$        ADD    R4, R4, R8, LSL#1
        LDR    R2, [R1, #4]
        CMP    R4, R2
        MOVLE  R11, #0
RU        SUBGT  R11, R4, R2          ; anzahl der pixel, die spr rechts uebersteht
TD        ; wenn beide 0 dann normale routine, sonst mkspr_put_cut
        ADDS   R3, R11, R12
V         BNE    mkspr_put_cut
.mkspr_anzeigen
        ; R2 temp
        ; R3 temp
[,        ; R4 temp zaehler fuer spr_xsize
\9        ; R5 ptr to akt sprite ( !von oben gegeben! )
])        ; R6 ptr to akt spr databyte
^%        ; R7 ptr to akt scr byte
_D        ; R8 xsize of spr ( !von oben gegeben! + wird angepasst)
`K        ; R9 ysize of spr ( !von oben gegeben! )  (wird runtergezaehlt)
        ; R12 scr_xsize
        ; R11
        ; R13
        ; R10
        ; R14
        ; scr pos setzen
h8        LDR     R2, mkysize            ; spr_y laden
i"        MOV     R2, R2, LSL #1
j5        LDR     R12, [R1, #4]         ; scr_xsize
kB        MUL     R7, R2, R12           ; offset durch yposition
m9        LDR     R2, [R1]             ; scr_base laden
        ADD     R7, R7, R2
p6        LDR     R2, [R1, #12]        ; spr_x laden
q9        ADD     R7, R7, R2, LSL#1    ; spr_x addieren
s%        ; spr size anpassen (x*2)
t"        MOV     R8, R8, LSL #1
v3        MOV     R4, R8        ; x zaehler stzen

x         LDR     R11, mkbit16
        MOV     R10, #31
z!        LDR     R0, mkopacity
.mkloop
|         LDR     R2, [R6], #2

S    R2, R2, R11
        ADDEQ   R7, R7, #2
        BEQ     mknextx
        CMP     R0, #0
        RSBLT   R0, R0, #0
        LDR     R3, [R7]
        ; rot

     R13, R3, R10

     R14, R2, R10
!        SUBLT   R13, R13, R14
(        ADDLT   R1, R14, R13, ASR R0
!        SUBGE   R14, R14, R13
(        ADDGE   R1, R13, R14, ASR R0
        ; gruen
%
     R13, R3, R10, LSL#5
%
     R14, R2, R10, LSL#5
#        MOV     R13, R13, LSR#5
#        MOV     R14, R14, LSR#5
!        SUBLT   R13, R13, R14
(        ADDLT   R13, R14, R13,ASR R0
!        SUBGE   R14, R14, R13
(        ADDGE   R13, R13, R14,ASR R0
&        ADD     R1, R1, R13, LSL#5
        ; blau
&
     R13, R3, R10, LSL#10
&
     R14, R2, R10, LSL#10
$        MOV     R13, R13, LSR#10
$        MOV     R14, R14, LSR#10
!        SUBLT   R13, R13, R14
(        ADDLT   R13, R14, R13,ASR R0
!        SUBGE   R14, R14, R13
(        ADDGE   R13, R13, R14,ASR R0
'        ADD     R2, R1, R13, LSL#10
        RSBLT   R0, R0, #0

!        MOV     R3, R2, LSR#8

     R2, R2, #255
         STRB    R2, [R7], #1
         STRB    R3, [R7], #1
.mknextx
        SUBS    R4, R4, #1
        BNE     mkloop
        SUBS    R9, R9, #1
        MOVNE   R4, R8
J        SUBNE   R7, R7, R8, LSL#1    ; zurueck an den Anfang der Zeile
;        ADDNE   R7, R7, R12, LSL#1    ; *2 und addieren
        BNE     mkloop
        MOV     R0, #0
        B       mkschluss
.mkspr_put_cut
        ; R0
        ; R1
        ; R2 temp
        ; R3 temp
.        ; R4 temp z
 hler f
 r spr_xsize
        ; R5 scr_xsize
)        ; R6 ptr to akt spr databyte
%        ; R7 ptr to akt scr byte
D        ; R8 xsize of spr ( !von oben gegeben! + wird angepasst)
L        ; R9 ysize of spr ( !von oben gegeben! )  (wird runtergez
 hlt)
:        ; R12 anz der pixel, die links gecuttet werden
;        ; R11 anz der pixel, die rechts gecuttet werden
        ; R13
        ; R10
        ; R14
        ; scr pos setzen
6        LDR     R2, mkysize          ; spr_y laden
"        MOV     R2, R2, LSL #1
4        LDR     R5, [R1, #4]         ; scr_xsize
A        MUL     R7, R2, R5           ; offset durch yposition
9        LDR     R2, [R1]             ; scr_base laden
        ADD     R7, R7, R2
6        LDR     R2, [R1, #12]        ; spr_x laden
9        ADD     R7, R7, R2, LSL#1    ; spr_x addieren
%        ; spr size anpassen (x*2)
"        MOV     R8, R8, LSL #1
8        SUB     R4, R8, R12        ; x zaehler stzen
X        SUB     R4, R4, R11        ; das was rechts und links gecuttet wird abziehen
R        ADD     R6, R6, R12, LSL#1 ; das was links gecuttet wird ueberspringen
R        ADD     R7, R7, R12, LSL#1 ; das was links gecuttet wird ueberspringen
!        LDR     R0, mkopacity
.mkloopc
         LDR     R2, [R6], #2
         LDR     R10, mkbit16

S    R2, R2, R10

        ADDEQ   R7, R7, #2
        BEQ     mknextxc
        MOV     R10, #31
        CMP     R0, #0
        RSBLT   R0, R0, #0
        LDR     R3, [R7]
        ; rot
        ; rot

     R13, R3, R10

     R14, R2, R10
!        SUBLT   R13, R13, R14
(        ADDLT   R1, R14, R13, ASR R0
!        SUBGE   R14, R14, R13
(        ADDGE   R1, R13, R14, ASR R0
        ; gruen
%
     R13, R3, R10, LSL#5
%
     R14, R2, R10, LSL#5
#        MOV     R13, R13, LSR#5
#        MOV     R14, R14, LSR#5
!        SUBLT   R13, R13, R14
(        ADDLT   R13, R14, R13,ASR R0
!        SUBGE   R14, R14, R13
(        ADDGE   R13, R13, R14,ASR R0
&        ADD     R1, R1, R13, LSL#5
        ; blau
&
     R13, R3, R10, LSL#10
&
     R14, R2, R10, LSL#10
$        MOV     R13, R13, LSR#10
$        MOV     R14, R14, LSR#10
!        SUBLT   R13, R13, R14
(        ADDLT   R13, R14, R13,ASR R0
    !        SUBGE   R14, R14, R13
(        ADDGE   R13, R13, R14,ASR R0
'        ADD     R2, R1, R13, LSL#10
        RSBLT   R0, R0, #0
!        MOV     R3, R2, LSR#8

     R2, R2, #255
         STRB    R2, [R7], #1
         STRB    R3, [R7], #1
.mknextxc
        SUBS    R4, R4, #1
        BNE     mkloopc
W        ADD     R6, R6, R11, LSL#1     ; das was rechts gecuttet wird ueberspringen
W        ADD     R7, R7, R11, LSL#1     ; das was rechts gecuttet wird ueberspringen
        SUBS    R9, R9, #1
<        SUB     R4, R8, R12            ; x zaehler stzen
\        SUB     R4, R4, R11            ; das was rechts und links gecuttet wird abziehen
 K        SUB     R7, R7, R8, LSL#1     ; zurueck an den Anfang der Zeile
!D        ADD     R7, R7, R5, LSL#1     ; scr_xsize*2 und addieren
#V        ADD     R6, R6, R12, LSL#1     ; das was links gecuttet wird ueberspringen
$V        ADD     R7, R7, R12, LSL#1     ; das was links gecuttet wird ueberspringen
        BNE     mkloopc
        MOV     R0, #0
        B       mkschluss
.mkschluss
-#        LDR     R13, mksp_store
.'        LDMFD   R13!, {R1-R12, R14}
        MOV     R15,R14
 pass
cd_start(song)
 nocd%
 cdsong%=song
 A%=cdsong%
 cd_play
cd_lockdrive
 nocd%
 cd_lock
cd_pause
 nocd%
J     A%=1
 cd_pause
cd_unpase
 nocd%
P     A%=0
 cd_pause
cd_checkrepeat
 nocd%
 A%=cdsong%
 cd_repeat
cd_unlockdrive
 nocd%
 cd_unlock
cd_stop
 nocd%
 cd_stop
init_CD
 nocd%
 CD 1024
 stack 256
 cdsong%=0
 pass=0
 P%=CD
 [OPT pass
 .const
  EQUD &FFFF0000
 .cd_block
  EQUD 0
  EQUD 0
  EQUD 0
  EQUD 0
  EQUD 0
  EQUD 0
 ; CD-Rom initialisieren
 ; Args
% ; - in R0 drivenummer
 bergeben
 .cd_init
(         STMFD   R13!,{ R1-R10, R14}
0         SWI     "CDFS_ConvertDriveToDevice"
!         ADR     R2, cd_block
*
     R0, R1, #&07   ; Word 0
!         STR     R0, [R2], #4

*
     R0, R1, #&18   ; Word 1
!         STR     R0, [R2], #4

*
     R0, R1, #&E0   ; Word 2
!         STR     R0, [R2], #4

*
     R0, R1, #&FF00 ; Word 3
!         STR     R0, [R2], #4
         LDR     R3, const
&
     R0, R1, R3 ; Word 4
!         STR     R0, [R2], #4
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_init ende
 ; Track starten
 ; Args
 ; - in R0 Tracknummer
 .cd_play
(         STMFD   R13!,{ R1-R10, R14}
         MOV     R1, #254
!         ADR     R7, cd_block
#         SWI     "CD_PlayTrack"
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_play ende
- ; Track wiederholen, falls erforderlich.
 ; Args
 ;  - in R0 Tracknummer
 .cd_repeat
(         STMFD   R13!,{ R1-R10, R14}
$         ADR     R14, end_repeat
         MOV     R1, R0
!         ADR     R7, cd_block
%         SWI     "CD_AudioStatus"
         CMP     R0, #3

Q   R0, R1
         BLEQ    cd_play
         CMP     R0, #5

Q   R0, R1
         BLEQ    cd_play
 .end_repeat
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_repeat ende
( ; Track macht mal ein bischen Pause
 ; Args
$ ; - r0 = 1 Pause ; r0 = 0 Weita
 .cd_pause
(         STMFD   R13!,{ R1-R10, R14}
!         ADR     R7, cd_block
$         SWI     "CD_AudioPause"
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_pause ende
 ; CD geht nicht mehr auf
 ; Args
 ;  nix
 .cd_lock
(         STMFD   R13!,{ R1-R10, R14}
         MOV     R0, #1
!         ADR     R7, cd_block
%         SWI     "CD_EjectButton"
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_pause ende
 ; CD geht wieder auf
 ; Args
 ;  nix
 .cd_unlock
(         STMFD   R13!,{ R1-R10, R14}
         MOV     R0,#0
!         ADR     R7, cd_block
%         SWI     "CD_EjectButton"
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_unlock ende
 ; CD stoppt
 ; Args
 ;  nix
 .cd_stop
(         STMFD   R13!,{ R1-R10, R14}
!         ADR     R7, cd_block
"         SWI     "CD_StopDisc"
         MOV     R0, #0
!         ADR     R7, cd_block
%         SWI     "CD_EjectButton"
(         LDMFD   R13!,{ R1-R10, R15}
 ; cd_stop ende
 pass
     A%=0
 cd_init